equal
deleted
inserted
replaced
28 (setLevel INFO) |
28 (setLevel INFO) |
29 |
29 |
30 main :: IO () |
30 main :: IO () |
31 main = withSocketsDo $ do |
31 main = withSocketsDo $ do |
32 #if !defined(mingw32_HOST_OS) |
32 #if !defined(mingw32_HOST_OS) |
33 installHandler sigPIPE Ignore Nothing; |
33 _ <- installHandler sigPIPE Ignore Nothing |
34 installHandler sigCHLD Ignore Nothing; |
34 _ <- installHandler sigCHLD Ignore Nothing |
35 #endif |
35 #endif |
36 |
36 |
37 setupLoggers |
37 setupLoggers |
38 |
38 |
39 stats' <- atomically $ newTMVar (StatisticsInfo 0 0) |
39 stats' <- atomically $ newTMVar (StatisticsInfo 0 0) |