Я узнал о hslogger здесь . initLogging :: Priority -> IO () initLogging level = do stdOutHandler <- streamHandler stdout level >>= \lh -> return $ setFormatter lh (simpleLogFormatter "[$prio:$loggername:$time]...