equal
deleted
inserted
replaced
477 HasAccount passwd isAdmin isContr -> do |
477 HasAccount passwd isAdmin isContr -> do |
478 b <- isBanned |
478 b <- isBanned |
479 c <- client's isChecker |
479 c <- client's isChecker |
480 when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin isContr |
480 when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin isContr |
481 Guest | isRegisteredUsersOnly si -> do |
481 Guest | isRegisteredUsersOnly si -> do |
482 processAction $ ByeClient "Registered users only" |
482 processAction $ ByeClient $ loc "This server only allows registered users to join." |
483 | otherwise -> do |
483 | otherwise -> do |
484 b <- isBanned |
484 b <- isBanned |
485 c <- client's isChecker |
485 c <- client's isChecker |
486 when (not b) $ |
486 when (not b) $ |
487 if c then |
487 if c then |