equal
deleted
inserted
replaced
400 b <- isBanned |
400 b <- isBanned |
401 c <- client's isChecker |
401 c <- client's isChecker |
402 when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin |
402 when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin |
403 Guest -> do |
403 Guest -> do |
404 b <- isBanned |
404 b <- isBanned |
|
405 c <- client's isChecker |
405 when (not b) $ |
406 when (not b) $ |
406 processAction JoinLobby |
407 if c then |
|
408 checkerLogin "" False |
|
409 else |
|
410 processAction JoinLobby |
407 Admin -> do |
411 Admin -> do |
408 mapM_ processAction [ModifyClient (\cl -> cl{isAdministrator = True}), JoinLobby] |
412 mapM_ processAction [ModifyClient (\cl -> cl{isAdministrator = True}), JoinLobby] |
409 chan <- client's sendChan |
413 chan <- client's sendChan |
410 processAction $ AnswerClients [chan] ["ADMIN_ACCESS"] |
414 processAction $ AnswerClients [chan] ["ADMIN_ACCESS"] |
411 where |
415 where |