equal
deleted
inserted
replaced
33 return $ |
33 return $ |
34 ModifyClient (\c -> c{clientProto = parsedProto}) : |
34 ModifyClient (\c -> c{clientProto = parsedProto}) : |
35 AnswerClients [sendChan cl] ["PROTO", showB 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 = readInt_ protoNum |
39 Just (i, t) | B.null t -> fromIntegral i |
|
40 _ -> 0 |
|
41 |
39 |
42 |
40 |
43 handleCmd_NotEntered ["PASSWORD", passwd] = do |
41 handleCmd_NotEntered ["PASSWORD", passwd] = do |
44 (ci, irnc) <- ask |
42 (ci, irnc) <- ask |
45 let cl = irnc `client` ci |
43 let cl = irnc `client` ci |