| changeset 3947 | 709fdb89f76c |
| parent 3500 | af8390d807d6 |
| child 4242 | 5e3c5fe2cb14 |
| 3946:41e06b74c991 | 3947:709fdb89f76c |
|---|---|
19 |
19 |
20 |
20 |
21 setupLoggers :: IO () |
21 setupLoggers :: IO () |
22 setupLoggers = |
22 setupLoggers = |
23 updateGlobalLogger "Clients" |
23 updateGlobalLogger "Clients" |
24 (setLevel DEBUG) |
24 (setLevel INFO) |
25 |
25 |
26 main :: IO () |
26 main :: IO () |
27 main = withSocketsDo $ do |
27 main = withSocketsDo $ do |
28 #if !defined(mingw32_HOST_OS) |
28 #if !defined(mingw32_HOST_OS) |
29 installHandler sigPIPE Ignore Nothing; |
29 installHandler sigPIPE Ignore Nothing; |