gameServer/Actions.hs
changeset 12119 cdadc1d487f1
parent 11859 0b8f2116aa26
child 12766 0167e337553b
--- a/gameServer/Actions.hs	Fri Dec 23 23:12:00 2016 +0300
+++ b/gameServer/Actions.hs	Fri Dec 23 23:29:00 2016 +0300
@@ -515,12 +515,12 @@
     rnc <- gets roomsClients
     clientNick <- client's nick
     clProto <- client's clientProto
-    isAuthenticated <- liftM (not . B.null) $ client's webPassword
+    isAuthenticated <- liftM isRegistered $ client's id
     isAdmin <- client's isAdministrator
     isContr <- client's isContributor
     loggedInClients <- liftM (Prelude.filter isVisible) $! allClientsS
     let (lobbyNicks, clientsChans) = unzip . L.map (nick &&& sendChan) $ loggedInClients
-    let authenticatedNicks = L.map nick . L.filter (not . B.null . webPassword) $ loggedInClients
+    let authenticatedNicks = L.map nick . L.filter isRegistered $ loggedInClients
     let adminsNicks = L.map nick . L.filter isAdministrator $ loggedInClients
     let contrNicks = L.map nick . L.filter isContributor $ loggedInClients
     inRoomNicks <- io $