dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Steve Dunham
2025-09-29 10:50:22 -07:00
parent 36d9f81f61
commit a53c5b4fba
2 changed files with 0 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/Lib/Compile.newt
View File

@@ -438,7 +438,6 @@ eraseEntries = do
-- given a initial function, return a dependency-ordered list of javascript source -- given a initial function, return a dependency-ordered list of javascript source
process : QName → M (List Doc) process : QName → M (List Doc)
process name = do process name = do
let wat = QN ("Prelude" :: Nil) "arrayToList"
top <- getTop top <- getTop
entries <- getEntries emptyMap name entries <- getEntries emptyMap name

3
src/Lib/Types.newt
View File

@@ -467,9 +467,6 @@ withPos (MkCtx lvl env types bds ctxFC) fc = (MkCtx lvl env types bds fc)
names : Context -> List String names : Context -> List String
names ctx = map fst ctx.types names ctx = map fst ctx.types
-- public export
-- M : U -> U
-- M = (StateT TopContext (EitherT Error IO))
record M a where record M a where
constructor MkM constructor MkM