changeset 4989 | 4771fed9272e |
parent 4982 | 3572eaf14340 |
child 4991 | 90d1fb9fc2e1 |
4988:bd540ba66599 | 4989:4771fed9272e |
---|---|
23 setupLoggers = |
23 setupLoggers = |
24 updateGlobalLogger "Clients" |
24 updateGlobalLogger "Clients" |
25 (setLevel INFO) |
25 (setLevel INFO) |
26 |
26 |
27 |
27 |
28 server :: ServerInfo c -> IO () |
28 server :: ServerInfo -> IO () |
29 server si = do |
29 server si = do |
30 proto <- getProtocolNumber "tcp" |
30 proto <- getProtocolNumber "tcp" |
31 E.bracket |
31 E.bracket |
32 (socket AF_INET Stream proto) |
32 (socket AF_INET Stream proto) |
33 sClose |
33 sClose |