Suppress unused-do-bind warnings which GHC 6.12.1 emits

[Lucu.git] / Network / HTTP / Lucu / Httpd.hs

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 654e50d43c46b1043f55cf0eeaa49032d6e26046..bab8d72ff5639362d1aee310ef7e189c5fc4bf84 100644 (file)
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -53,7 +53,7 @@ import           System.Posix.Signals
 runHttpd :: Config -> ResTree -> [FallbackHandler] -> IO ()
 runHttpd cnf tree fbs
     = withSocketsDo $
-      do installHandler sigPIPE Ignore Nothing
+      do _ <- installHandler sigPIPE Ignore Nothing
 
          case cnfSSLConfig cnf of
            Nothing