fix regressed error message for missing cases

2025-02-16 21:46:19 -08:00
parent 001cba26ee
commit 041521ab47
5 changed files with 7 additions and 10 deletions
--- a/src/Lib/Compile.newt
+++ b/src/Lib/Compile.newt
@@ -286,7 +286,6 @@ maybeWrap stmt = Apply (JLam Nil stmt) Nil
 defToDoc : {{Ref2 Defs St}} → QName → Def → M Doc
 defToDoc name (Fn tm) = do
  debug $ \ _ => "compileFun \{render 90 $ pprint Nil tm}"
-  -- tm' <- erase Nil tm Nil
  ct <- compileFun tm
  let exp = maybeWrap $ termToJS emptyJSEnv ct JReturn
  pure $ text "const" <+> jsIdent (show name) <+> text "=" <+/> expToDoc exp ++ text ";"