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.
gameServer/Actions.hs
branchserver_refactor
changeset 4606 4c521c4ab2b6
parent 4604 831a4b91e9bc
child 4610 9541b2a76067 
--- a/gameServer/Actions.hs	Fri Jan 28 22:19:06 2011 +0300
+++ b/gameServer/Actions.hs	Fri Jan 28 22:21:29 2011 +0300
@@ -68,7 +68,7 @@
 
 
 processAction (AnswerClients chans msg) = do
-    io $ mapM_ (flip writeChan msg) chans
+    io $ mapM_ (flip writeChan (msg `deepseq` msg)) (chans `deepseq` chans)
 
 
 processAction SendServerMessage = do
hedgewars