gameServer/CoreTypes.hs
branch0.9.21
changeset 10771 ac06370b7436
parent 10765 7e55468ffe38
equal deleted inserted replaced
10769:e603fac0ce7f 10771:ac06370b7436
    36 
    36 
    37 #if __GLASGOW_HASKELL__ < 706
    37 #if __GLASGOW_HASKELL__ < 706
    38 instance NFData B.ByteString
    38 instance NFData B.ByteString
    39 #endif
    39 #endif
    40 
    40 
    41 instance NFData (Chan a) where rnf a  = ()
    41 instance NFData (Chan a) where rnf a  = a `seq` ()
    42 
    42 
    43 instance NFData Action where
    43 instance NFData Action where
    44     rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` ()
    44     rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` ()
    45     rnf a = a `seq` ()
    45     rnf a = a `seq` ()
    46 
    46