diff -r e603fac0ce7f -r ac06370b7436 gameServer/CoreTypes.hs
--- a/gameServer/CoreTypes.hs	Wed Jun 03 14:50:54 2015 +0100
+++ b/gameServer/CoreTypes.hs	Wed Jun 03 23:24:56 2015 +0300
@@ -38,7 +38,7 @@
 instance NFData B.ByteString
 #endif
 
-instance NFData (Chan a) where rnf a  = ()
+instance NFData (Chan a) where rnf a  = a `seq` ()
 
 instance NFData Action where
     rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` ()