module System.Logging.Facade.Types where data LogLevel = TRACE | DEBUG | INFO | WARN | ERROR deriving (LogLevel -> LogLevel -> Bool (LogLevel -> LogLevel -> Bool) -> (LogLevel -> LogLevel -> Bool) -> Eq LogLevel forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: LogLevel -> LogLevel -> Bool $c/= :: LogLevel -> LogLevel -> Bool == :: LogLevel -> LogLevel -> Bool $c== :: LogLevel -> LogLevel -> Bool Eq, Int -> LogLevel -> ShowS [LogLevel] -> ShowS LogLevel -> String (Int -> LogLevel -> ShowS) -> (LogLevel -> String) -> ([LogLevel] -> ShowS) -> Show LogLevel forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [LogLevel] -> ShowS $cshowList :: [LogLevel] -> ShowS show :: LogLevel -> String $cshow :: LogLevel -> String showsPrec :: Int -> LogLevel -> ShowS $cshowsPrec :: Int -> LogLevel -> ShowS Show, ReadPrec [LogLevel] ReadPrec LogLevel Int -> ReadS LogLevel ReadS [LogLevel] (Int -> ReadS LogLevel) -> ReadS [LogLevel] -> ReadPrec LogLevel -> ReadPrec [LogLevel] -> Read LogLevel forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [LogLevel] $creadListPrec :: ReadPrec [LogLevel] readPrec :: ReadPrec LogLevel $creadPrec :: ReadPrec LogLevel readList :: ReadS [LogLevel] $creadList :: ReadS [LogLevel] readsPrec :: Int -> ReadS LogLevel $creadsPrec :: Int -> ReadS LogLevel Read, Eq LogLevel Eq LogLevel -> (LogLevel -> LogLevel -> Ordering) -> (LogLevel -> LogLevel -> Bool) -> (LogLevel -> LogLevel -> Bool) -> (LogLevel -> LogLevel -> Bool) -> (LogLevel -> LogLevel -> Bool) -> (LogLevel -> LogLevel -> LogLevel) -> (LogLevel -> LogLevel -> LogLevel) -> Ord LogLevel LogLevel -> LogLevel -> Bool LogLevel -> LogLevel -> Ordering LogLevel -> LogLevel -> LogLevel forall a. Eq a -> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a min :: LogLevel -> LogLevel -> LogLevel $cmin :: LogLevel -> LogLevel -> LogLevel max :: LogLevel -> LogLevel -> LogLevel $cmax :: LogLevel -> LogLevel -> LogLevel >= :: LogLevel -> LogLevel -> Bool $c>= :: LogLevel -> LogLevel -> Bool > :: LogLevel -> LogLevel -> Bool $c> :: LogLevel -> LogLevel -> Bool <= :: LogLevel -> LogLevel -> Bool $c<= :: LogLevel -> LogLevel -> Bool < :: LogLevel -> LogLevel -> Bool $c< :: LogLevel -> LogLevel -> Bool compare :: LogLevel -> LogLevel -> Ordering $ccompare :: LogLevel -> LogLevel -> Ordering $cp1Ord :: Eq LogLevel Ord, LogLevel LogLevel -> LogLevel -> Bounded LogLevel forall a. a -> a -> Bounded a maxBound :: LogLevel $cmaxBound :: LogLevel minBound :: LogLevel $cminBound :: LogLevel Bounded, Int -> LogLevel LogLevel -> Int LogLevel -> [LogLevel] LogLevel -> LogLevel LogLevel -> LogLevel -> [LogLevel] LogLevel -> LogLevel -> LogLevel -> [LogLevel] (LogLevel -> LogLevel) -> (LogLevel -> LogLevel) -> (Int -> LogLevel) -> (LogLevel -> Int) -> (LogLevel -> [LogLevel]) -> (LogLevel -> LogLevel -> [LogLevel]) -> (LogLevel -> LogLevel -> [LogLevel]) -> (LogLevel -> LogLevel -> LogLevel -> [LogLevel]) -> Enum LogLevel forall a. (a -> a) -> (a -> a) -> (Int -> a) -> (a -> Int) -> (a -> [a]) -> (a -> a -> [a]) -> (a -> a -> [a]) -> (a -> a -> a -> [a]) -> Enum a enumFromThenTo :: LogLevel -> LogLevel -> LogLevel -> [LogLevel] $cenumFromThenTo :: LogLevel -> LogLevel -> LogLevel -> [LogLevel] enumFromTo :: LogLevel -> LogLevel -> [LogLevel] $cenumFromTo :: LogLevel -> LogLevel -> [LogLevel] enumFromThen :: LogLevel -> LogLevel -> [LogLevel] $cenumFromThen :: LogLevel -> LogLevel -> [LogLevel] enumFrom :: LogLevel -> [LogLevel] $cenumFrom :: LogLevel -> [LogLevel] fromEnum :: LogLevel -> Int $cfromEnum :: LogLevel -> Int toEnum :: Int -> LogLevel $ctoEnum :: Int -> LogLevel pred :: LogLevel -> LogLevel $cpred :: LogLevel -> LogLevel succ :: LogLevel -> LogLevel $csucc :: LogLevel -> LogLevel Enum) data Location = Location { Location -> String locationPackage :: String , Location -> String locationModule :: String , Location -> String locationFile :: String , Location -> Int locationLine :: Int , Location -> Int locationColumn :: Int } deriving (Location -> Location -> Bool (Location -> Location -> Bool) -> (Location -> Location -> Bool) -> Eq Location forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Location -> Location -> Bool $c/= :: Location -> Location -> Bool == :: Location -> Location -> Bool $c== :: Location -> Location -> Bool Eq, Int -> Location -> ShowS [Location] -> ShowS Location -> String (Int -> Location -> ShowS) -> (Location -> String) -> ([Location] -> ShowS) -> Show Location forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Location] -> ShowS $cshowList :: [Location] -> ShowS show :: Location -> String $cshow :: Location -> String showsPrec :: Int -> Location -> ShowS $cshowsPrec :: Int -> Location -> ShowS Show) data LogRecord = LogRecord { LogRecord -> LogLevel logRecordLevel :: LogLevel , LogRecord -> Maybe Location logRecordLocation :: Maybe Location , LogRecord -> String logRecordMessage :: String } deriving (LogRecord -> LogRecord -> Bool (LogRecord -> LogRecord -> Bool) -> (LogRecord -> LogRecord -> Bool) -> Eq LogRecord forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: LogRecord -> LogRecord -> Bool $c/= :: LogRecord -> LogRecord -> Bool == :: LogRecord -> LogRecord -> Bool $c== :: LogRecord -> LogRecord -> Bool Eq, Int -> LogRecord -> ShowS [LogRecord] -> ShowS LogRecord -> String (Int -> LogRecord -> ShowS) -> (LogRecord -> String) -> ([LogRecord] -> ShowS) -> Show LogRecord forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [LogRecord] -> ShowS $cshowList :: [LogRecord] -> ShowS show :: LogRecord -> String $cshow :: LogRecord -> String showsPrec :: Int -> LogRecord -> ShowS $cshowsPrec :: Int -> LogRecord -> ShowS Show)