setLoggerLevels :: (LogHandler s) => s -> IO () 
setLoggerLevels s = do
    updateGlobalLogger rootLoggerName removeHandler
    updateGlobalLogger "2ndF" (
        setHandlers [s] .  
        setLevel INFO  
        )
setLoggerLevels :: (LogHandler s) => s -> IO ()
setLoggerLevels s = do
    updateGlobalLogger rootLoggerName removeHandler
    updateGlobalLogger "2ndF" (
        setHandlers [s] .  
        setLevel INFO  
        )
setLoggerLevels s = do
    updateGlobalLogger rootLoggerName removeHandler
    updateGlobalLogger "2ndF" (
        setHandlers [s] .  
        setLevel INFO  
        )