equal
deleted
inserted
replaced
27 return $ |
27 return $ |
28 ModifyClient (\c -> c{nick = newNick}) : |
28 ModifyClient (\c -> c{nick = newNick}) : |
29 AnswerClients [sendChan cl] ["NICK", newNick] : |
29 AnswerClients [sendChan cl] ["NICK", newNick] : |
30 [CheckRegistered | clientProto cl /= 0] |
30 [CheckRegistered | clientProto cl /= 0] |
31 where |
31 where |
32 haveSameNick irnc clNick = isJust $ find (\cl -> newNick == clNick) $ map (client irnc) $ allClients irnc |
32 haveSameNick irnc clNick = isJust $ find (\cl -> newNick == cl) $ map (nick . client irnc) $ allClients irnc |
33 |
33 |
34 handleCmd_NotEntered ["PROTO", protoNum] = do |
34 handleCmd_NotEntered ["PROTO", protoNum] = do |
35 (ci, irnc) <- ask |
35 (ci, irnc) <- ask |
36 let cl = irnc `client` ci |
36 let cl = irnc `client` ci |
37 if clientProto cl > 0 then return [ProtocolError "Protocol already known"] |
37 if clientProto cl > 0 then return [ProtocolError "Protocol already known"] |