fix: lowerCons signature

This commit is contained in:
2026-05-18 10:13:36 -06:00
parent f5fe6b5b20
commit 34e309b539

View File

@@ -333,7 +333,7 @@ sizeofScm :: Integral a => a
sizeofScm = 8 sizeofScm = 8
lowerCons lowerCons
:: (GenSym :> es) :: (GenSym :> es, Writer (Vector QBE.DataDef) :> es)
=> Name -> QBE.Val -> QBE.Val -> Exp => Name -> QBE.Val -> QBE.Val -> Exp
-> (QBE.Val -> Eff es BlockBuilder) -> (QBE.Val -> Eff es BlockBuilder)
-> Eff es BlockBuilder -> Eff es BlockBuilder