equal
deleted
inserted
replaced
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 |