module Test.Sandwich.Formatters.Print.Types where
import Control.Monad.Logger
data PrintFormatter = PrintFormatter {
PrintFormatter -> Bool
printFormatterUseColor :: Bool
, PrintFormatter -> Maybe LogLevel
printFormatterLogLevel :: Maybe LogLevel
, PrintFormatter -> Int
printFormatterVisibilityThreshold :: Int
, PrintFormatter -> Bool
printFormatterIncludeCallStacks :: Bool
, PrintFormatter -> Int
printFormatterIndentSize :: Int
, PrintFormatter -> IncludeTimestamps
printFormatterIncludeTimestamps :: IncludeTimestamps
} deriving (Int -> PrintFormatter -> ShowS
[PrintFormatter] -> ShowS
PrintFormatter -> String
(Int -> PrintFormatter -> ShowS)
-> (PrintFormatter -> String)
-> ([PrintFormatter] -> ShowS)
-> Show PrintFormatter
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PrintFormatter -> ShowS
showsPrec :: Int -> PrintFormatter -> ShowS
$cshow :: PrintFormatter -> String
show :: PrintFormatter -> String
$cshowList :: [PrintFormatter] -> ShowS
showList :: [PrintFormatter] -> ShowS
Show)
data IncludeTimestamps =
IncludeTimestampsAlways
| IncludeTimestampsNever
| IncludeTimestampsFailuresOnly
deriving (Int -> IncludeTimestamps -> ShowS
[IncludeTimestamps] -> ShowS
IncludeTimestamps -> String
(Int -> IncludeTimestamps -> ShowS)
-> (IncludeTimestamps -> String)
-> ([IncludeTimestamps] -> ShowS)
-> Show IncludeTimestamps
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> IncludeTimestamps -> ShowS
showsPrec :: Int -> IncludeTimestamps -> ShowS
$cshow :: IncludeTimestamps -> String
show :: IncludeTimestamps -> String
$cshowList :: [IncludeTimestamps] -> ShowS
showList :: [IncludeTimestamps] -> ShowS
Show, IncludeTimestamps -> IncludeTimestamps -> Bool
(IncludeTimestamps -> IncludeTimestamps -> Bool)
-> (IncludeTimestamps -> IncludeTimestamps -> Bool)
-> Eq IncludeTimestamps
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: IncludeTimestamps -> IncludeTimestamps -> Bool
== :: IncludeTimestamps -> IncludeTimestamps -> Bool
$c/= :: IncludeTimestamps -> IncludeTimestamps -> Bool
/= :: IncludeTimestamps -> IncludeTimestamps -> Bool
Eq)
defaultPrintFormatter :: PrintFormatter
defaultPrintFormatter :: PrintFormatter
defaultPrintFormatter = PrintFormatter {
printFormatterUseColor :: Bool
printFormatterUseColor = Bool
True
, printFormatterLogLevel :: Maybe LogLevel
printFormatterLogLevel = LogLevel -> Maybe LogLevel
forall a. a -> Maybe a
Just LogLevel
LevelWarn
, printFormatterVisibilityThreshold :: Int
printFormatterVisibilityThreshold = Int
50
, printFormatterIncludeCallStacks :: Bool
printFormatterIncludeCallStacks = Bool
True
, printFormatterIndentSize :: Int
printFormatterIndentSize = Int
4
, printFormatterIncludeTimestamps :: IncludeTimestamps
printFormatterIncludeTimestamps = IncludeTimestamps
IncludeTimestampsNever
}