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
} deriving (Int -> PrintFormatter -> ShowS
[PrintFormatter] -> ShowS
PrintFormatter -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PrintFormatter] -> ShowS
$cshowList :: [PrintFormatter] -> ShowS
show :: PrintFormatter -> String
$cshow :: PrintFormatter -> String
showsPrec :: Int -> PrintFormatter -> ShowS
$cshowsPrec :: Int -> PrintFormatter -> ShowS
Show)
defaultPrintFormatter :: PrintFormatter
defaultPrintFormatter :: PrintFormatter
defaultPrintFormatter = PrintFormatter {
printFormatterUseColor :: Bool
printFormatterUseColor = Bool
True
, printFormatterLogLevel :: Maybe LogLevel
printFormatterLogLevel = forall a. a -> Maybe a
Just LogLevel
LevelWarn
, printFormatterVisibilityThreshold :: Int
printFormatterVisibilityThreshold = Int
50
, printFormatterIncludeCallStacks :: Bool
printFormatterIncludeCallStacks = Bool
True
, printFormatterIndentSize :: Int
printFormatterIndentSize = Int
4
}