equal
deleted
inserted
replaced
22 |
22 |
23 setupLoggers :: IO () |
23 setupLoggers :: IO () |
24 setupLoggers = do |
24 setupLoggers = do |
25 updateGlobalLogger "Clients" (setLevel NOTICE) |
25 updateGlobalLogger "Clients" (setLevel NOTICE) |
26 updateGlobalLogger "Core" (setLevel NOTICE) |
26 updateGlobalLogger "Core" (setLevel NOTICE) |
|
27 updateGlobalLogger "REPLAYS" (setLevel NOTICE) |
27 |
28 |
28 |
29 |
29 server :: ServerInfo -> IO () |
30 server :: ServerInfo -> IO () |
30 server si = do |
31 server si = do |
31 proto <- getProtocolNumber "tcp" |
32 proto <- getProtocolNumber "tcp" |