equal
deleted
inserted
replaced
379 haveSameNick <- liftM (not . null . tail . filter (\c -> (not $ isChecker c) && caseInsensitiveCompare (nick c) n)) allClientsS |
379 haveSameNick <- liftM (not . null . tail . filter (\c -> (not $ isChecker c) && caseInsensitiveCompare (nick c) n)) allClientsS |
380 if (not checker) && haveSameNick then |
380 if (not checker) && haveSameNick then |
381 if p < 38 then |
381 if p < 38 then |
382 processAction $ ByeClient $ loc "Nickname is already in use" |
382 processAction $ ByeClient $ loc "Nickname is already in use" |
383 else |
383 else |
384 processAction $ NoticeMessage NickAlreadyInUse |
384 mapM_ processAction [NoticeMessage NickAlreadyInUse, ModifyClient $ \c -> c{nick = B.empty}] |
385 else |
385 else |
386 do |
386 do |
387 db <- gets (dbQueries . serverInfo) |
387 db <- gets (dbQueries . serverInfo) |
388 io $ writeChan db $ CheckAccount ci (hashUnique uid) n h |
388 io $ writeChan db $ CheckAccount ci (hashUnique uid) n h |
389 return () |
389 return () |