# HG changeset patch
# User unc0rr
# Date 1225705765 0
# Node ID 693db7cd6f253aeb9b0095fb4c22cc5bbfb5963c
# Parent  659157f7617152f9ef556dbeba1f0ebaba2d28d0
Print comprehensive info about what's going on, don't try to close already closed handle

diff -r 659157f76171 -r 693db7cd6f25 netserver/hedgewars-server.hs
--- a/netserver/hedgewars-server.hs	Mon Nov 03 09:43:03 2008 +0000
+++ b/netserver/hedgewars-server.hs	Mon Nov 03 09:49:25 2008 +0000
@@ -61,7 +61,7 @@
 	unless (null recipients) $ putStrLn ("< " ++ (show answer))
 
 	clHandles' <- forM recipients $
-		\ch -> Control.Exception.handle (\e -> putStrLn ("handle exception: " ++ show e) >> hClose ch >> if head answer == "BYE" then return [ch] else return []) $ -- cannot just remove
+		\ch -> Control.Exception.handle (handleException ch) $ -- cannot just remove
 			do
 			forM_ answer (\str -> hPutStrLn ch str)
 			hPutStrLn ch ""
@@ -73,6 +73,15 @@
 	sendAnswers answers client mclients rooms
 	where
 		remove list rmClHandles = deleteFirstsBy2t (\ a b -> (Miscutils.handle a) == b) list rmClHandles
+		handleException ch e = do
+			putStrLn ("handle exception: " ++ show e)
+			handleInfo <- hShow ch
+			putStrLn ("handle info: " ++ handleInfo)
+			
+			cl <- hIsClosed ch
+			unless cl (hClose ch)
+			
+			if head answer == "BYE" then return [ch] else return []
 
 
 reactCmd :: [String] -> ClientInfo -> [ClientInfo] -> [RoomInfo] -> IO ([ClientInfo], [RoomInfo])