136 

   136 

   137     s <- get

   137     s <- get

   138     put $! s{removedClients = ci `Set.insert` removedClients s}

   138     put $! s{removedClients = ci `Set.insert` removedClients s}

   139 

   139 

   140 processAction (DeleteClient ci) = do

   140 processAction (DeleteClient ci) = do

   141     rnc <- gets roomsClients

   143     rnc <- gets roomsClients

   142     io $ removeClient rnc ci

   144     io $ removeClient rnc ci

   143 

   145 

   144     s <- get

   146     s <- get

   145     put $! s{removedClients = ci `Set.delete` removedClients s}

   147     put $! s{removedClients = ci `Set.delete` removedClients s}