Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
netserver/hedgewars-server.hs
changeset 1382 b6ab9fea22fe
parent 1381 e9754d1d61a9
child 1383 d20e6e8928e3 
--- a/netserver/hedgewars-server.hs	Sat Oct 18 21:47:28 2008 +0000
+++ b/netserver/hedgewars-server.hs	Mon Oct 20 12:58:16 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 [ch]) $
+		\ch -> Control.Exception.handle (\e -> putStrLn (show e) >> hClose ch >> return []) $ -- cannot just remove
 			do
 			forM_ answer (\str -> hPutStrLn ch str)
 			hPutStrLn ch ""
hedgewars