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 

    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"