initLogging :: IO ()
initLogging = do
    metaDir <- getMetaDir
    let logFile = combine metaDir "log"
    h <- fileHandler logFile DEBUG >>= \lh -> return $
            setFormatter lh (simpleLogFormatter "[$time : $loggername : $prio] $msg")
    updateGlobalLogger "" (addHandler h)
    updateGlobalLogger "" (setLevel DEBUG)
initLogging :: IO ()
initLogging = do
    metaDir <- getMetaDir
    let logFile = combine metaDir "log"
    h <- fileHandler logFile DEBUG >>= \lh -> return $
            setFormatter lh (simpleLogFormatter "[$time : $loggername : $prio] $msg")
    updateGlobalLogger "" (addHandler h)
    updateGlobalLogger "" (setLevel DEBUG)
initLogging = do
    metaDir <- getMetaDir
    let logFile = combine metaDir "log"
    h <- fileHandler logFile DEBUG >>= \lh -> return $
            setFormatter lh (simpleLogFormatter "[$time : $loggername : $prio] $msg")
    updateGlobalLogger "" (addHandler h)
    updateGlobalLogger "" (setLevel DEBUG)