@@ -117,7 +117,7 @@ codegenJs conf ci =
117117 writeFile (outputFile ci ++ ".LDeclsDebug") $ (unlines $ intersperse "" $ map show used) ++ "\n\n\n"
118118 putStrLn $ "Finished calculating used"
119119
120− let (out, stats) = doCodegen conf defs used
120+ let (out, stats) = doCodegen defs used
121121
122122 path <- getIdrisJSRTSDir
123123 jsbn <- if usedBigInt stats
@@ -175,15 +175,15 @@ doHiddenClasses x =
175175-- LFunctions are turned into JS function declarations. They are
176176-- preceded by a comment that gives their name. Constructor
177177-- declarations are ignored.
178−doCodegen :: CGConf -> Map Name LDecl -> [LDecl] -> (Text, CGStats)
179−doCodegen conf defs decls = foldMap (doCodegenDecl conf defs) decls
178+doCodegen :: Map Name LDecl -> [LDecl] -> (Text, CGStats)
179+doCodegen defs = foldMap (doCodegenDecl defs)
180180 where
181− doCodegenDecl :: CGConf -> Map Name LDecl -> LDecl -> (Text, CGStats)
182− doCodegenDecl conf defs (LFun _ name args def) =
183− let (ast, stats) = cgFun conf defs name args def
181+ doCodegenDecl :: Map Name LDecl -> LDecl -> (Text, CGStats)
182+ doCodegenDecl defs (LFun _ name args def) =
183+ let (ast, stats) = cgFun defs name args def
184184 fnComment = jsStmt2Text (JsComment $ T.pack $ show name)
185185 in (T.concat [fnComment, "\n", jsStmt2Text ast, "\n"], stats)
186− doCodegenDecl conf defs (LConstructor n i sz) = ("", mempty)
186+ doCodegenDecl defs (LConstructor n i sz) = ("", mempty)
187187
188188
189189seqJs :: [JsStmt] -> JsStmt
@@ -197,7 +197,6 @@ data CGBodyState = CGBodyState { defs :: Map Name LDecl
197197 , currentFnNameAndArgs :: (Text, [Text])
198198 , usedArgsTailCallOptim :: Set (Text, Text)
199199 , isTailRec :: Bool
200− , conf :: CGConf
201200 , usedITBig :: Bool
202201 , partialApps :: Set Partial
203202 , hiddenCls :: Set HiddenClass
@@ -249,8 +248,8 @@ data BodyResTarget = ReturnBT
249248 | DecConstBT Text
250249 | GetExpBT
251250
252−cgFun :: CGConf -> Map Name LDecl -> Name -> [Name] -> LExp -> (JsStmt, CGStats)
253−cgFun cnf dfs n args def = do
251+cgFun :: Map Name LDecl -> Name -> [Name] -> LExp -> (JsStmt, CGStats)
252+cgFun dfs n args def = do
254253 let fnName = jsName n
255254 let argNames = map jsName args
256255 let ((decs, res),st) = runState
@@ -261,7 +260,6 @@ cgFun cnf dfs n args def = do
261260 , currentFnNameAndArgs = (fnName, argNames)
262261 , usedArgsTailCallOptim = Set.empty
263262 , isTailRec = False
264− , conf = cnf
265263 , usedITBig = False
266264 , partialApps = Set.empty
267265 , hiddenCls = Set.empty