equal
deleted
inserted
replaced
47 unless (ci `Set.member` removed) $ do |
47 unless (ci `Set.member` removed) $ do |
48 as <- get |
48 as <- get |
49 put $! as{clientIndex = Just ci} |
49 put $! as{clientIndex = Just ci} |
50 reactCmd cmd |
50 reactCmd cmd |
51 |
51 |
52 Remove ci -> do |
52 Remove ci -> |
53 liftIO $ debugM "Clients" $ "DeleteClient: " ++ show ci |
|
54 processAction (DeleteClient ci) |
53 processAction (DeleteClient ci) |
55 |
54 |
56 ClientAccountInfo ci uid info -> do |
55 ClientAccountInfo ci uid info -> do |
57 rnc <- gets roomsClients |
56 rnc <- gets roomsClients |
58 exists <- liftIO $ clientExists rnc ci |
57 exists <- liftIO $ clientExists rnc ci |