equal
deleted
inserted
replaced
86 |
86 |
87 instance NFData Action where |
87 instance NFData Action where |
88 rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () |
88 rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () |
89 rnf a = a `seq` () |
89 rnf a = a `seq` () |
90 |
90 |
|
91 #if __GLASGOW_HASKELL__ < 706 |
91 instance NFData B.ByteString |
92 instance NFData B.ByteString |
|
93 #endif |
|
94 |
92 instance NFData (Chan a) |
95 instance NFData (Chan a) |
93 |
96 |
94 |
97 |
95 othersChans :: StateT ServerState IO [ClientChan] |
98 othersChans :: StateT ServerState IO [ClientChan] |
96 othersChans = do |
99 othersChans = do |