equal
deleted
inserted
replaced
66 |
66 |
67 processAction :: Action -> StateT ServerState IO () |
67 processAction :: Action -> StateT ServerState IO () |
68 |
68 |
69 |
69 |
70 processAction (AnswerClients chans msg) = do |
70 processAction (AnswerClients chans msg) = do |
71 io $ mapM_ (flip writeChan msg) chans |
71 io $ mapM_ (flip writeChan (msg `deepseq` msg)) (chans `deepseq` chans) |
72 |
72 |
73 |
73 |
74 processAction SendServerMessage = do |
74 processAction SendServerMessage = do |
75 chan <- client's sendChan |
75 chan <- client's sendChan |
76 protonum <- client's clientProto |
76 protonum <- client's clientProto |