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 1475 bab5650fc894
parent 1474 8817adb86da6
child 1476 b3b28e99570f 
--- a/netserver/hedgewars-server.hs	Tue Nov 04 22:42:08 2008 +0000
+++ b/netserver/hedgewars-server.hs	Tue Nov 04 22:49:13 2008 +0000
@@ -57,7 +57,7 @@
 sendAnswers [] _ clients _ = return clients
 sendAnswers ((handlesFunc, answer):answers) client clients rooms = do
 	let recipients = handlesFunc client clients rooms
-	--unless (null recipients) $ putStrLn ("< " ++ (show answer))
+	unless (null recipients) $ putStrLn ("< " ++ (show answer))
 
 	clHandles' <- forM recipients $
 		\ch -> Control.Exception.handle
hedgewars