module Stan.Report.Settings
( OutputSettings (..)
, Verbosity (..)
, isVerbose
, ToggleSolution (..)
, isHidden
) where
data OutputSettings = OutputSettings
{ OutputSettings -> Verbosity
outputSettingsVerbosity :: !Verbosity
, OutputSettings -> ToggleSolution
outputSettingsSolutionVerbosity :: !ToggleSolution
}
data Verbosity
= Verbose
| NonVerbose
deriving stock (Int -> Verbosity -> ShowS
[Verbosity] -> ShowS
Verbosity -> String
(Int -> Verbosity -> ShowS)
-> (Verbosity -> String)
-> ([Verbosity] -> ShowS)
-> Show Verbosity
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Verbosity] -> ShowS
$cshowList :: [Verbosity] -> ShowS
show :: Verbosity -> String
$cshow :: Verbosity -> String
showsPrec :: Int -> Verbosity -> ShowS
$cshowsPrec :: Int -> Verbosity -> ShowS
Show)
isVerbose :: Verbosity -> Bool
isVerbose :: Verbosity -> Bool
isVerbose = \case
Verbose -> Bool
True
NonVerbose -> Bool
False
data ToggleSolution
= HideSolution
| ShowSolution
deriving stock (Int -> ToggleSolution -> ShowS
[ToggleSolution] -> ShowS
ToggleSolution -> String
(Int -> ToggleSolution -> ShowS)
-> (ToggleSolution -> String)
-> ([ToggleSolution] -> ShowS)
-> Show ToggleSolution
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ToggleSolution] -> ShowS
$cshowList :: [ToggleSolution] -> ShowS
show :: ToggleSolution -> String
$cshow :: ToggleSolution -> String
showsPrec :: Int -> ToggleSolution -> ShowS
$cshowsPrec :: Int -> ToggleSolution -> ShowS
Show)
isHidden :: ToggleSolution -> Bool
isHidden :: ToggleSolution -> Bool
isHidden HideSolution = Bool
True
isHidden ShowSolution = Bool
False