-- | Log at critical level.
logCritical :: String -> IO ()
logCritical = criticalM rootLoggerName
logCritical :: String -> IO ()
logCritical = criticalM rootLoggerName
logCritical = criticalM rootLoggerName