gameServer/HWProtoInRoomState.hs
changeset 4908 99d6797b7ff4
parent 4904 0eab727d4717
child 4917 8ff92bdc9f98
equal deleted inserted replaced
4907:8bf14795a528 4908:99d6797b7ff4
   193         return []
   193         return []
   194     where
   194     where
   195         (isLegal, isKeepAlive) = checkNetCmd msg
   195         (isLegal, isKeepAlive) = checkNetCmd msg
   196 
   196 
   197 
   197 
   198 handleCmd_inRoom ["ROUNDFINISHED"] = do
   198 handleCmd_inRoom ["ROUNDFINISHED", _] = do
   199     cl <- thisClient
   199     cl <- thisClient
   200     r <- thisRoom
   200     r <- thisRoom
   201     chans <- roomClientsChans
   201     chans <- roomClientsChans
   202 
   202 
   203     if isMaster cl && (gameinprogress r) then
   203     if isMaster cl && (gameinprogress r) then