equal
deleted
inserted
replaced
41 case r of |
41 case r of |
42 Accept ci -> processAction (AddClient ci) |
42 Accept ci -> processAction (AddClient ci) |
43 |
43 |
44 ClientMessage (ci, cmd) -> do |
44 ClientMessage (ci, cmd) -> do |
45 liftIO $ debugM "Clients" $ show ci ++ ": " ++ show cmd |
45 liftIO $ debugM "Clients" $ show ci ++ ": " ++ show cmd |
46 |
46 |
47 removed <- gets removedClients |
47 removed <- gets removedClients |
48 unless (ci `Set.member` removed) $ do |
48 unless (ci `Set.member` removed) $ do |
49 modify (\s -> s{clientIndex = Just ci}) |
49 modify (\s -> s{clientIndex = Just ci}) |
50 reactCmd cmd |
50 reactCmd cmd |
51 |
51 |
73 _ <- forkIO $ |
73 _ <- forkIO $ |
74 acceptLoop |
74 acceptLoop |
75 (fromJust $ serverSocket si) |
75 (fromJust $ serverSocket si) |
76 (coreChan si) |
76 (coreChan si) |
77 |
77 |
78 return () |
|
79 |
|
80 _ <- forkIO $ timerLoop 0 $ coreChan si |
78 _ <- forkIO $ timerLoop 0 $ coreChan si |
81 |
79 |
82 startDBConnection si |
80 startDBConnection si |
83 |
81 |
84 rnc <- newRoomsAndClients newRoom |
82 rnc <- newRoomsAndClients newRoom |