# HG changeset patch
# User unc0rr
# Date 1296242489 -10800
# Node ID 4c521c4ab2b6ae511d4f379f56f9e19fde2dcd3d
# Parent  831a4b91e9bc515e9edd1c7425b8133edcd1ab97
Force RNF in AnswerClients too, in order to prevent lazyness in actions (most probably it's redundant to do that, still I do)

diff -r 831a4b91e9bc -r 4c521c4ab2b6 gameServer/Actions.hs
--- 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