equal
deleted
inserted
replaced
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 |