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 instance NFData B.ByteString

    92 instance NFData B.ByteString

    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