-- | Log levels, defined in a separate module to avoid circular dependencies
module Log.Level
    ( LogLevel
    , levelTrace
    , levelDebug
    , levelInfo
    , levelWarning
    , levelError
    , levelFatal
    ) where

import ClassyPrelude

newtype LogLevel = LogLevel Int
    deriving (Eq, Ord, Show)

levelTrace, levelDebug, levelInfo, levelWarning, levelError, levelFatal :: LogLevel
levelTrace = LogLevel 0
levelDebug = LogLevel 10
levelInfo = LogLevel 20
levelWarning = LogLevel 30
levelError = LogLevel 40
levelFatal = LogLevel 50