equal
deleted
inserted
replaced
306 master <- liftM isMaster thisClient |
306 master <- liftM isMaster thisClient |
307 let banId = fromJust maybeClientId |
307 let banId = fromJust maybeClientId |
308 let sameRoom = clientRoom rnc thisClientId == clientRoom rnc banId |
308 let sameRoom = clientRoom rnc thisClientId == clientRoom rnc banId |
309 if master && isJust maybeClientId && (banId /= thisClientId) && sameRoom then |
309 if master && isJust maybeClientId && (banId /= thisClientId) && sameRoom then |
310 return [ |
310 return [ |
311 ModifyRoom (\r -> r{roomBansList = let h = host $ rnc `client` banId in h `deepseq` h : roomBansList r}) |
311 -- ModifyRoom (\r -> r{roomBansList = let h = host $ rnc `client` banId in h `deepseq` h : roomBansList r}) |
312 , KickRoomClient banId |
312 KickRoomClient banId |
313 ] |
313 ] |
314 else |
314 else |
315 return [] |
315 return [] |
316 |
316 |
317 |
317 |