equal
deleted
inserted
replaced
115 chan <- client's sendChan |
115 chan <- client's sendChan |
116 clNick <- client's nick |
116 clNick <- client's nick |
117 loggedIn <- client's isVisible |
117 loggedIn <- client's isVisible |
118 |
118 |
119 when (ri /= lobbyId) $ do |
119 when (ri /= lobbyId) $ do |
120 processAction $ MoveToLobby ("quit: " `B.append` msg) |
120 processAction $ (MoveToLobby msg) |
121 return () |
121 return () |
122 |
122 |
123 clientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS |
123 clientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS |
124 io $ |
124 io $ |
125 infoM "Clients" (show ci ++ " quits: " ++ B.unpack msg) |
125 infoM "Clients" (show ci ++ " quits: " ++ B.unpack msg) |