equal
deleted
inserted
replaced
883 actions <- liftIO $ withRoomsAndClients rnc (\irnc -> runReader (handleCmd cmd) (ci, irnc)) |
883 actions <- liftIO $ withRoomsAndClients rnc (\irnc -> runReader (handleCmd cmd) (ci, irnc)) |
884 forM_ (actions `deepseq` actions) processAction |
884 forM_ (actions `deepseq` actions) processAction |
885 |
885 |
886 processAction CheckVotes = |
886 processAction CheckVotes = |
887 checkVotes >>= mapM_ processAction |
887 checkVotes >>= mapM_ processAction |
|
888 |
|
889 processAction (ShowRegisteredOnlyState chans) = do |
|
890 si <- gets serverInfo |
|
891 processAction $ AnswerClients chans |
|
892 ["CHAT", nickServer, |
|
893 if isRegisteredUsersOnly si then |
|
894 loc "This server no longer allows unregistered players to join." |
|
895 else |
|
896 loc "This server now allows unregistered players to join." |
|
897 ] |