fix: lowerCons signature

2026-05-18 10:13:36 -06:00
parent f5fe6b5b20
commit 34e309b539
1 changed files with 1 additions and 1 deletions
--- a/app/Gyehoek/ANF/Syntax.hs
+++ b/app/Gyehoek/ANF/Syntax.hs
@@ -333,7 +333,7 @@ sizeofScm :: Integral a => a
 sizeofScm = 8

 lowerCons
-  :: (GenSym :> es)
+  :: (GenSym :> es, Writer (Vector QBE.DataDef) :> es)
  => Name -> QBE.Val -> QBE.Val -> Exp
  -> (QBE.Val -> Eff es BlockBuilder)
  -> Eff es BlockBuilder