--- a/gameServer/hedgewars-server.hs Sat Mar 05 22:39:26 2011 +0300
+++ b/gameServer/hedgewars-server.hs Sun Mar 06 21:54:37 2011 +0300
@@ -25,7 +25,7 @@
(setLevel INFO)
-server :: ServerInfo c -> IO ()
+server :: ServerInfo -> IO ()
server si = do
proto <- getProtocolNumber "tcp"
E.bracket