module GHC.Cmm.Parser.Config (
    PDConfig(..)
  , CmmParserConfig(..)
) where

import GHC.Prelude

import GHC.Platform.Profile

import GHC.StgToCmm.Config

import GHC.Parser.Lexer


data PDConfig = PDConfig
  { PDConfig -> Profile
pdProfile :: !Profile
  , PDConfig -> Bool
pdSanitizeAlignment :: !Bool -- ^ Insert alignment checks (cf @-falignment-sanitisation@)
  }

data CmmParserConfig = CmmParserConfig
  { CmmParserConfig -> ParserOpts
cmmpParserOpts :: !ParserOpts
  , CmmParserConfig -> PDConfig
cmmpPDConfig :: !PDConfig
  , CmmParserConfig -> StgToCmmConfig
cmmpStgToCmmConfig :: !StgToCmmConfig
  }