179     allClientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS

   179     allClientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS

   180 

   180 

   181     mapM_ processAction [

   181     mapM_ processAction [

   182         AnswerClients chans ["JOINED", clNick]

   182         AnswerClients chans ["JOINED", clNick]

   183         , AnswerClients allClientsChans ["CLIENT_FLAGS", "+i", clNick]

   183         , AnswerClients allClientsChans ["CLIENT_FLAGS", "+i", clNick]

   184         ]

   185         ]

   185 

   186 

   186 

   187 

   187 processAction (MoveToLobby msg) = do

   188 processAction (MoveToLobby msg) = do

   188     (Just ci) <- gets clientIndex

   189     (Just ci) <- gets clientIndex