--- 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