186     chans <- liftM (map sendChan) $ roomClientsS ri

   186     chans <- liftM (map sendChan) $ roomClientsS ri

   187     clNick <- client's nick

   187     clNick <- client's nick

   188 

   188 

   189     processAction $ AnswerClients chans ["JOINED", clNick]

   189     processAction $ AnswerClients chans ["JOINED", clNick]

   190 

   190 

   191 processAction (MoveToLobby msg) = do

   192 processAction (MoveToLobby msg) = do

   192     (Just ci) <- gets clientIndex

   193     (Just ci) <- gets clientIndex

   193     ri <- clientRoomA

   194     ri <- clientRoomA

   194     rnc <- gets roomsClients

   195     rnc <- gets roomsClients

   195     room <- clientRoomA

   196     room <- clientRoomA