fix erasure issues inside where clauses (add type to LetRec)

2024-12-06 20:55:16 -08:00
parent 8d8078f968
commit 0c0b1668d7
8 changed files with 29 additions and 36 deletions
--- a/src/Lib/CompileExp.idr
+++ b/src/Lib/CompileExp.idr
@@ -143,7 +143,7 @@ compileTerm (Case _ t alts) = do
  pure $ CCase t' alts'
 compileTerm (Lit _ lit) = pure $ CLit lit
 compileTerm (Let _ nm t u) = pure $ CLet nm !(compileTerm t) !(compileTerm u)
-compileTerm (LetRec _ nm t u) = pure $ CLetRec nm !(compileTerm t) !(compileTerm u)
+compileTerm (LetRec _ nm _ t u) = pure $ CLetRec nm !(compileTerm t) !(compileTerm u)
 compileTerm (Erased _) = pure CErased

 export