gameServer/Actions.hs
changeset 10058 4ed428389c4e
parent 10057 795f5f918c8c
child 10076 b235e520ea21
--- a/gameServer/Actions.hs	Thu Jan 23 00:07:27 2014 +0400
+++ b/gameServer/Actions.hs	Thu Jan 23 01:04:17 2014 +0400
@@ -222,7 +222,7 @@
     rnc <- gets roomsClients
     specialRoom <- io $ room'sM rnc isSpecial ri
     newMasterId <- if specialRoom then 
-        delegateId
+        return delegateId
         else
         liftM (\ids -> fromMaybe (listToMaybe . reverse . filter (/= ci) $ ids) $ liftM Just delegateId) . io $ roomClientsIndicesM rnc ri
     newMaster <- io $ client'sM rnc id `DT.mapM` newMasterId