# HG changeset patch
# User unc0rr
# Date 1225705383 0
# Node ID 659157f7617152f9ef556dbeba1f0ebaba2d28d0
# Parent  d3323637da1f20f98891230e356d311743ad54f6
Close socket on exception anyway

diff -r d3323637da1f -r 659157f76171 netserver/hedgewars-server.hs
--- a/netserver/hedgewars-server.hs	Sun Nov 02 20:48:10 2008 +0000
+++ b/netserver/hedgewars-server.hs	Mon Nov 03 09:43:03 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) >> if head answer == "BYE" then return [ch] else return []) $ -- cannot just remove
+		\ch -> Control.Exception.handle (\e -> putStrLn ("handle exception: " ++ show e) >> hClose ch >> if head answer == "BYE" then return [ch] else return []) $ -- cannot just remove
 			do
 			forM_ answer (\str -> hPutStrLn ch str)
 			hPutStrLn ch ""