cleanup

src/Lib/Compile.newt

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

src/Lib/Types.newt

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