changeset 2129 | 8664554d5547 |
parent 1985 | 0792e1485d07 |
child 2296 | 19f2f76dc346 |
2128:903fdb9f44b0 | 2129:8664554d5547 |
---|---|
26 (setLevel INFO) |
26 (setLevel INFO) |
27 |
27 |
28 main = withSocketsDo $ do |
28 main = withSocketsDo $ do |
29 #if !defined(mingw32_HOST_OS) |
29 #if !defined(mingw32_HOST_OS) |
30 installHandler sigPIPE Ignore Nothing; |
30 installHandler sigPIPE Ignore Nothing; |
31 installHandler sigCHLD Ignore Nothing; |
|
31 #endif |
32 #endif |
32 |
33 |
33 setupLoggers |
34 setupLoggers |
34 |
35 |
35 stats <- atomically $ newTMVar (StatisticsInfo 0 0) |
36 stats <- atomically $ newTMVar (StatisticsInfo 0 0) |