equal
deleted
inserted
replaced
62 |
62 |
63 clientByNick :: B.ByteString -> Reader (ClientIndex, IRnC) (Maybe ClientIndex) |
63 clientByNick :: B.ByteString -> Reader (ClientIndex, IRnC) (Maybe ClientIndex) |
64 clientByNick n = do |
64 clientByNick n = do |
65 (_, rnc) <- ask |
65 (_, rnc) <- ask |
66 let allClientIDs = allClients rnc |
66 let allClientIDs = allClients rnc |
67 return $ find (\clId -> n == nick (client rnc clId)) allClientIDs |
67 return $ find (\clId -> let cl = client rnc clId in n == nick cl && not (isChecker cl)) allClientIDs |
68 |
68 |