# HG changeset patch
# User unc0rr
# Date 1224613761 0
# Node ID 6d04732abed2c94eed2183b4a509921b3f8a31ec
# Parent  dc6a772ea385d431748896781d47f41855955abd
Don't close handle in exception handler

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