Remove unused argument that was blowing up serialization.

This commit is contained in:
2025-01-18 15:21:15 -08:00
parent f9279bb255
commit f991ca0d52
8 changed files with 39 additions and 51 deletions

View File

@@ -21,16 +21,6 @@ import Lib.Syntax
import Lib.Syntax
import Node
-- this was an experiment, prepping for dumping module information
-- it ends up with out of memory dumping defs of some of the files.
-- Prelude is 114MB pretty-printed... gzip to 1M
pfunc dumpObject uses (MkIORes MkUnit fs): a. String a IO Unit := `(_,fn,a) => (w) => {
console.log(a)
let data = JSON.stringify(a, null, ' ')
fs.writeFileSync(fn, data)
return MkIORes(undefined, MkUnit, w)
}`
primNS : List String
primNS = ("Prim" :: Nil)
@@ -128,8 +118,6 @@ processModule importFC base stk qn@(QN ns nm) = do
let imported = snoc imported primNS
-- I guess we should empty defs now instead of at the end?
putStrLn $ "MODNS " ++ show modns
top <- get
(decls, ops) <- parseDecls fn top.ops toks Lin