--- a/gameServer/hedgewars-server.hs	Sun Feb 06 18:59:53 2011 +0300
+++ b/gameServer/hedgewars-server.hs	Sun Feb 06 21:50:29 2011 +0300
@@ -30,8 +30,8 @@
 main :: IO ()
 main = withSocketsDo $ do
 #if !defined(mingw32_HOST_OS)
-    installHandler sigPIPE Ignore Nothing;
-    installHandler sigCHLD Ignore Nothing;
+    _ <- installHandler sigPIPE Ignore Nothing
+    _ <- installHandler sigCHLD Ignore Nothing
 #endif
 
     setupLoggers