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
}
data CmmParserConfig = CmmParserConfig
{ CmmParserConfig -> ParserOpts
cmmpParserOpts :: !ParserOpts
, CmmParserConfig -> PDConfig
cmmpPDConfig :: !PDConfig
, CmmParserConfig -> StgToCmmConfig
cmmpStgToCmmConfig :: !StgToCmmConfig
}