gameServer/CoreTypes.hs
branch0.9.21
changeset 10771 ac06370b7436
parent 10765 7e55468ffe38
--- 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` ()