equal
deleted
inserted
replaced
46 #endif |
46 #endif |
47 |
47 |
48 setupLoggers |
48 setupLoggers |
49 |
49 |
50 stats <- atomically $ newTMVar (StatisticsInfo 0 0) |
50 stats <- atomically $ newTMVar (StatisticsInfo 0 0) |
51 --dbQueriesChan <- atomically newTChan |
51 dbQueriesChan <- newChan |
52 coreChan <- newChan |
52 coreChan <- newChan |
53 serverInfo <- getOpts $ newServerInfo stats -- dbQueriesChan |
53 serverInfo <- getOpts $ newServerInfo stats dbQueriesChan |
54 |
54 |
55 bracket |
55 bracket |
56 (Network.listenOn $ Network.PortNumber $ listenPort serverInfo) |
56 (Network.listenOn $ Network.PortNumber $ listenPort serverInfo) |
57 (sClose) |
57 (sClose) |
58 (startServer serverInfo coreChan) |
58 (startServer serverInfo coreChan) |