equal
deleted
inserted
replaced
72 serverSocket |
72 serverSocket |
73 (coreChan serverInfo) |
73 (coreChan serverInfo) |
74 |
74 |
75 return () |
75 return () |
76 |
76 |
77 forkIO $ timerLoop 0 $ coreChan serverInfo |
77 --forkIO $ timerLoop 0 $ coreChan serverInfo |
78 |
78 |
79 startDBConnection serverInfo |
79 startDBConnection serverInfo |
80 |
80 |
81 rnc <- newRoomsAndClients newRoom |
81 rnc <- newRoomsAndClients newRoom |
82 |
82 |
83 forkIO $ evalStateT mainLoop (ServerState Nothing serverInfo Set.empty rnc) |
83 forkIO $ evalStateT mainLoop (ServerState Nothing serverInfo Set.empty rnc) |
84 |
84 |
85 forever $ threadDelay (60 * 60 * 10^6) >> putStrLn "***" |
85 forever $ threadDelay (60 * 60 * 10^6) |