diff -r f9f47e681aad -r d909152bdc21 gameServer/Actions.hs --- a/gameServer/Actions.hs Fri Apr 17 17:02:24 2009 +0000 +++ b/gameServer/Actions.hs Fri Apr 17 19:58:21 2009 +0000 @@ -117,6 +117,7 @@ processAction (clID, serverInfo, clients, rooms) (ByeClient msg) = do + infoM "Clients" ((show $ clientUID client) ++ " quits: " ++ msg) (_, _, newClients, newRooms) <- if roomID client /= 0 then processAction (clID, serverInfo, clients, rooms)