--- a/netserver/hedgewars-server.hs	Thu Nov 27 14:34:52 2008 +0000
+++ b/netserver/hedgewars-server.hs	Thu Nov 27 14:36:22 2008 +0000
@@ -20,7 +20,7 @@
 import System.Posix
 #endif
 
-#define IOException Exception
+-- #define IOException Exception
 
 data Messages =
 	Accept ClientInfo
@@ -107,7 +107,6 @@
 	let outHandles = concat clHandles'
 	unless (null outHandles) $ putStrLn ((show $ length outHandles) ++ " / " ++ (show $ length clients) ++ " : " ++ (show answer))
 
-	-- strange, but this seems to be a bad idea to manually close these handles as it causes hangs
 	let mclients = deleteFirstsBy (==) clients outHandles
 
 	sendAnswers answers client mclients rooms
@@ -139,7 +138,7 @@
 	case r of
 		Accept ci -> do
 			let sameHostClients = filter (\cl -> host ci == host cl) clients
-			let haveJustConnected = False--not $ null $ filter (\cl -> connectTime ci `diffUTCTime` connectTime cl <= 25) sameHostClients
+			let haveJustConnected = not $ null $ filter (\cl -> connectTime ci `diffUTCTime` connectTime cl <= 25) sameHostClients
 			
 			when haveJustConnected $ do
 				atomically $ do