| 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 |