--- a/netserver/hedgewars-server.hs Tue Oct 21 16:53:34 2008 +0000
+++ b/netserver/hedgewars-server.hs Tue Oct 21 18:25:34 2008 +0000
@@ -47,7 +47,7 @@
unless (null recipients) $ putStrLn ("< " ++ (show answer))
clHandles' <- forM recipients $
- \ch -> Control.Exception.handle (\e -> putStrLn (show e) >> hClose ch >> return []) $ -- cannot just remove
+ \ch -> Control.Exception.handle (\e -> putStrLn ("handle exception: " ++ show e) >> hClose ch >> return []) $ -- cannot just remove
do
forM_ answer (\str -> hPutStrLn ch str)
hPutStrLn ch ""