fix(compiler): fixed other declaration types in ANF

plume-lang · Aug 7, 2024 · b4159ff · b4159ff
1 parent 3b5ce57
commit b4159ff
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Plume/Compiler/Desugaring/Modules/ANF.hs b/src/Plume/Compiler/Desugaring/Modules/ANF.hs
@@ -35,9 +35,9 @@ desugarANF (_, _, _, sba) f (Pre.CEDeclaration name expr body) = do
           <> [Post.DSDeclaration fresh body' | sba]
 
   return (if sba then Post.DEVar fresh else body', stmts)
-desugarANF t f (Pre.CEMutDeclaration name expr body) = do
+desugarANF _ f (Pre.CEMutDeclaration name expr body) = do
   (expr', stmt1) <- f expr
-  (body', stmts2) <- desugarANF t f body
+  (body', stmts2) <- f body
 
   fresh <- freshName
 
@@ -48,9 +48,9 @@ desugarANF t f (Pre.CEMutDeclaration name expr body) = do
           <> [Post.DSDeclaration fresh body']
 
   return (Post.DEVar fresh, stmts)
-desugarANF t f (Pre.CEMutUpdate name expr body) = do
+desugarANF _ f (Pre.CEMutUpdate name expr body) = do
   (expr', stmt1) <- f expr
-  (body', stmts2) <- desugarANF t f body
+  (body', stmts2) <- f body
 
   fresh <- freshName