equal
deleted
inserted
replaced
146 debugM "Network" $ "Send: " ++ show p |
146 debugM "Network" $ "Send: " ++ show p |
147 sendAll s $ B.unlines p `B.snoc` '\n' |
147 sendAll s $ B.unlines p `B.snoc` '\n' |
148 onPacket :: Chan Message -> [B.ByteString] -> IO () |
148 onPacket :: Chan Message -> [B.ByteString] -> IO () |
149 onPacket _ ("CONNECTED":_) = do |
149 onPacket _ ("CONNECTED":_) = do |
150 answer ["CHECKER", protocolNumber, l, p] |
150 answer ["CHECKER", protocolNumber, l, p] |
151 answer ["READY"] |
|
152 onPacket _ ["PING"] = answer ["PONG"] |
151 onPacket _ ["PING"] = answer ["PONG"] |
|
152 onPacket _ ["LOGONPASSED"] = answer ["READY"] |
153 onPacket chan ("REPLAY":msgs) = do |
153 onPacket chan ("REPLAY":msgs) = do |
154 checkReplay chan msgs |
154 checkReplay chan msgs |
155 warningM "Check" "Started check" |
155 warningM "Check" "Started check" |
156 onPacket _ ("BYE" : xs) = error $ show xs |
156 onPacket _ ("BYE" : xs) = error $ show xs |
157 onPacket _ _ = return () |
157 onPacket _ _ = return () |