module Game.LambdaHack.Common.ClientOptions
( DebugModeCli(..), defDebugModeCli
) where
import Data.Binary
import GHC.Generics (Generic)
import Game.LambdaHack.Common.Faction
data DebugModeCli = DebugModeCli
{ sfont :: !(Maybe String)
, smaxFps :: !(Maybe Int)
, snoDelay :: !Bool
, snoMore :: !Bool
, snoAnim :: !(Maybe Bool)
, snewGameCli :: !Bool
, sdifficultyCli :: !Int
, ssavePrefixCli :: !(Maybe String)
, sfrontendStd :: !Bool
, sfrontendNull :: !Bool
, sdbgMsgCli :: !Bool
}
deriving (Show, Eq, Generic)
instance Binary DebugModeCli
defDebugModeCli :: DebugModeCli
defDebugModeCli = DebugModeCli
{ sfont = Nothing
, smaxFps = Nothing
, snoDelay = False
, snoMore = False
, snoAnim = Nothing
, snewGameCli = False
, sdifficultyCli = difficultyDefault
, ssavePrefixCli = Nothing
, sfrontendStd = False
, sfrontendNull = False
, sdbgMsgCli = False
}