{-# LANGUAGE NoImplicitPrelude #-} module Data.Morpheus.Types.Internal.Config ( Config (..), VALIDATION_MODE (..), defaultConfig, debugConfig, ) where import Relude data VALIDATION_MODE = WITHOUT_VARIABLES | FULL_VALIDATION deriving (VALIDATION_MODE -> VALIDATION_MODE -> Bool (VALIDATION_MODE -> VALIDATION_MODE -> Bool) -> (VALIDATION_MODE -> VALIDATION_MODE -> Bool) -> Eq VALIDATION_MODE forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: VALIDATION_MODE -> VALIDATION_MODE -> Bool == :: VALIDATION_MODE -> VALIDATION_MODE -> Bool $c/= :: VALIDATION_MODE -> VALIDATION_MODE -> Bool /= :: VALIDATION_MODE -> VALIDATION_MODE -> Bool Eq, Int -> VALIDATION_MODE -> ShowS [VALIDATION_MODE] -> ShowS VALIDATION_MODE -> String (Int -> VALIDATION_MODE -> ShowS) -> (VALIDATION_MODE -> String) -> ([VALIDATION_MODE] -> ShowS) -> Show VALIDATION_MODE forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> VALIDATION_MODE -> ShowS showsPrec :: Int -> VALIDATION_MODE -> ShowS $cshow :: VALIDATION_MODE -> String show :: VALIDATION_MODE -> String $cshowList :: [VALIDATION_MODE] -> ShowS showList :: [VALIDATION_MODE] -> ShowS Show) data Config = Config { Config -> Bool debug :: Bool, Config -> VALIDATION_MODE validationMode :: VALIDATION_MODE, Config -> Bool introspection :: Bool } deriving (Int -> Config -> ShowS [Config] -> ShowS Config -> String (Int -> Config -> ShowS) -> (Config -> String) -> ([Config] -> ShowS) -> Show Config forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> Config -> ShowS showsPrec :: Int -> Config -> ShowS $cshow :: Config -> String show :: Config -> String $cshowList :: [Config] -> ShowS showList :: [Config] -> ShowS Show) defaultConfig :: Config defaultConfig :: Config defaultConfig = Config { debug :: Bool debug = Bool False, validationMode :: VALIDATION_MODE validationMode = VALIDATION_MODE FULL_VALIDATION, introspection :: Bool introspection = Bool True } debugConfig :: Config debugConfig :: Config debugConfig = Config { debug :: Bool debug = Bool True, validationMode :: VALIDATION_MODE validationMode = VALIDATION_MODE FULL_VALIDATION, introspection :: Bool introspection = Bool True }