gameServer/HWProtoInRoomState.hs
changeset 10217 1a1da2342c5b
parent 10215 26fc5502ba22
child 10392 5012e1f9e893
equal deleted inserted replaced
10216:6928a323097f 10217:1a1da2342c5b
   386     rm <- thisRoom
   386     rm <- thisRoom
   387     maybeClientId <- clientByNick nickname
   387     maybeClientId <- clientByNick nickname
   388     let kickId = fromJust maybeClientId
   388     let kickId = fromJust maybeClientId
   389     let sameRoom = clientRoom rnc thisClientId == clientRoom rnc kickId
   389     let sameRoom = clientRoom rnc thisClientId == clientRoom rnc kickId
   390 
   390 
   391     if isNothing $ masterID rm then
   391     if isJust $ masterID rm then
   392         return []
   392         return []
   393         else
   393         else
   394         if isJust maybeClientId && sameRoom then
   394         if isJust maybeClientId && sameRoom then
   395             startVote $ VoteKick nickname
   395             startVote $ VoteKick nickname
   396             else
   396             else