equal
deleted
inserted
replaced
107 |
107 |
108 |
108 |
109 main :: IO () |
109 main :: IO () |
110 main = withSocketsDo $ do |
110 main = withSocketsDo $ do |
111 #if !defined(mingw32_HOST_OS) |
111 #if !defined(mingw32_HOST_OS) |
112 installHandler sigPIPE Ignore Nothing; |
112 installHandler sigPIPE Ignore Nothing |
|
113 installHandler sigCHLD Ignore Nothing |
113 #endif |
114 #endif |
114 |
115 |
115 updateGlobalLogger "Core" (setLevel DEBUG) |
116 updateGlobalLogger "Core" (setLevel DEBUG) |
116 updateGlobalLogger "Network" (setLevel DEBUG) |
117 updateGlobalLogger "Network" (setLevel DEBUG) |
117 |
118 |