diff options
Diffstat (limited to 'compiler/GHC/Driver/Config')
| -rw-r--r-- | compiler/GHC/Driver/Config/StgToJS.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/compiler/GHC/Driver/Config/StgToJS.hs b/compiler/GHC/Driver/Config/StgToJS.hs index 69bb27953c..b94d3fcaa7 100644 --- a/compiler/GHC/Driver/Config/StgToJS.hs +++ b/compiler/GHC/Driver/Config/StgToJS.hs @@ -3,14 +3,18 @@ module GHC.Driver.Config.StgToJS ) where -import GHC.Prelude +import GHC.StgToJS.Types + import GHC.Driver.Session import GHC.Platform.Ways -import GHC.StgToJS.Types +import GHC.Utils.Outputable + +import GHC.Prelude -- | Initialize StgToJS settings from DynFlags initStgToJSConfig :: DynFlags -> StgToJSConfig initStgToJSConfig dflags = StgToJSConfig + -- flags { csInlinePush = False , csInlineBlackhole = False , csInlineLoadRegs = False @@ -22,4 +26,6 @@ initStgToJSConfig dflags = StgToJSConfig , csTraceForeign = False , csProf = ways dflags `hasWay` WayProf , csRuntimeAssert = False + -- settings + , csContext = initSDocContext dflags defaultDumpStyle } |