gameServer/CoreTypes.hs
changeset 10983 6aba07ea908b
parent 10977 b2823ea26631
child 11046 47a8c19ecb60
--- a/gameServer/CoreTypes.hs	Tue Jun 02 19:53:30 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` ()