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

    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 

    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