equal
deleted
inserted
replaced
83 |
83 |
84 instance NFData Action where |
84 instance NFData Action where |
85 rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () |
85 rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () |
86 rnf a = a `seq` () |
86 rnf a = a `seq` () |
87 |
87 |
88 instance NFData B.ByteString |
88 --instance NFData B.ByteString |
89 instance NFData (Chan a) |
89 instance NFData (Chan a) |
90 |
90 |
91 |
91 |
92 othersChans :: StateT ServerState IO [ClientChan] |
92 othersChans :: StateT ServerState IO [ClientChan] |
93 othersChans = do |
93 othersChans = do |