equal
deleted
inserted
replaced
338 (Just ci) <- gets clientIndex |
338 (Just ci) <- gets clientIndex |
339 n <- client's nick |
339 n <- client's nick |
340 h <- client's host |
340 h <- client's host |
341 p <- client's clientProto |
341 p <- client's clientProto |
342 uid <- client's clUID |
342 uid <- client's clUID |
343 haveSameNick <- liftM (not . null . tail . filter (\c -> nick c == n)) allClientsS |
343 haveSameNick <- liftM (not . null . tail . filter (\c -> caseInsensitiveCompare (nick c) n)) allClientsS |
344 if haveSameNick then |
344 if haveSameNick then |
345 if p < 38 then |
345 if p < 38 then |
346 mapM_ processAction [ByeClient "Nickname is already in use", removeNick] |
346 mapM_ processAction [ByeClient "Nickname is already in use", removeNick] |
347 else |
347 else |
348 mapM_ processAction [NoticeMessage NickAlreadyInUse, removeNick] |
348 mapM_ processAction [NoticeMessage NickAlreadyInUse, removeNick] |