equal
deleted
inserted
replaced
30 else |
30 else |
31 if parsedProto == 0 then return [ProtocolError "Bad number"] |
31 if parsedProto == 0 then return [ProtocolError "Bad number"] |
32 else |
32 else |
33 return $ |
33 return $ |
34 ModifyClient (\c -> c{clientProto = parsedProto}) : |
34 ModifyClient (\c -> c{clientProto = parsedProto}) : |
35 AnswerClients [sendChan cl] ["PROTO", B.pack $ show parsedProto] : |
35 AnswerClients [sendChan cl] ["PROTO", showB parsedProto] : |
36 [CheckRegistered | not . B.null $ nick cl] |
36 [CheckRegistered | not . B.null $ nick cl] |
37 where |
37 where |
38 parsedProto = case B.readInt protoNum of |
38 parsedProto = case B.readInt protoNum of |
39 Just (i, t) | B.null t -> fromIntegral i |
39 Just (i, t) | B.null t -> fromIntegral i |
40 _ -> 0 |
40 _ -> 0 |