# HG changeset patch
# User unc0rr
# Date 1508956731 -7200
# Node ID 0167e337553bf1fb6e9c6143ec07df023337c9c5
# Parent  5acf6b91df76ebbb72b4bedf7ff98d474d6e8b13
Use maybeNick from Utils, fixes empty nickname inserted in ROOMS protocol command parameters. Not tested, but builds, and it's Haskell...

diff -r 5acf6b91df76 -r 0167e337553b gameServer/Actions.hs
--- a/gameServer/Actions.hs	Tue Oct 24 19:54:38 2017 -0400
+++ b/gameServer/Actions.hs	Wed Oct 25 20:38:51 2017 +0200
@@ -515,7 +515,7 @@
     rnc <- gets roomsClients
     clientNick <- client's nick
     clProto <- client's clientProto
-    isAuthenticated <- liftM isRegistered $ client's id
+    isAuthenticated <- client's isRegistered
     isAdmin <- client's isAdministrator
     isContr <- client's isContributor
     loggedInClients <- liftM (Prelude.filter isVisible) $! allClientsS
@@ -531,8 +531,8 @@
 
     roomsInfoList <- io $ do
         rooms <- roomsM rnc
-        mapM (\r -> (if isNothing $ masterID r then return "" else client'sM rnc nick (fromJust $ masterID r))
-            >>= \cn -> return $ roomInfo clProto cn r)
+        mapM (\r -> (mapM (client'sM rnc id) $ masterID r)
+            >>= \cn -> return $ roomInfo clProto (maybeNick cn) r)
             $ filter (\r -> (roomProto r == clProto)) rooms
 
     mapM_ processAction . concat $ [