diff -r 7a31a292fa84 -r 1aa5e884326a gameServer/Actions.hs --- a/gameServer/Actions.hs Sun Aug 19 09:54:46 2018 -0400 +++ b/gameServer/Actions.hs Tue Aug 21 02:14:15 2018 +0200 @@ -117,7 +117,7 @@ loggedIn <- client's isVisible when (ri /= lobbyId) $ do - processAction $ MoveToLobby ("quit: " `B.append` msg) + processAction $ (MoveToLobby msg) return () clientsChans <- liftM (Prelude.map sendChan . Prelude.filter isVisible) $! allClientsS