Add JS.Rts

JS.Rts: compiles

reword: progress on RtsTypes

StgToJS.Config: add SDoc Context

JSRts: move ppr, workaround def type

JSRts.Types: compiles

JS.Rts: closer to compiling

JS.Rts: move jsIdIdent' to StgToJS.Monad

JS.Rts: remove unused predicates

JS: cleanup, comment sections, math funcs to Make

JS.Rts.Types: compiles

StgToJS.Expr: fix compilation errors

StgToJS.DataCon: move initClosure

JS.Rts: remove Alloc module

JS.Rts: initalize Rts module, remove redundant fs

JS: init Rts.Alloc move initClosure

JS.Apply: unwinding combinators in progress

JS: add helpers and fixmes

JS.Rts.Apply: no more e's, add closure, reg helper

StgToJS: add ToStat instance ClosureInfo

JS.Rts.Apply: closer to compiling

JS.Rts.Apply: more removal of #

JS.Rts.Apply: (#) removed

JS.Rts.Apply: compiles

JS.Rts.Rts: just pretty printing left

JS.Rts: Add Notes

JS.Rts: add file headers and notes

JS.Rts.Rts: fixing stringy issues

JS.Rts.Rts: compiles

JS.Rts.Rts: fix non-exhaustive patterns warnings

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
   }