fix: more signatures

app/Gyehoek/ANF/Syntax.hs

@@ -422,7 +422,7 @@ smallIntMask :: Integer
 smallIntMask = 2 ^ (sizeofScm * 8) - 2
 
 lowerCar
-  :: GenSym :> es
+  :: (GenSym :> es, Writer (Vector QBE.DataDef) :> es)
   => Name -> QBE.Val -> _
   -> (QBE.Val -> Eff es BlockBuilder) -> Eff es BlockBuilder
 lowerCar r x e k = do
@@ -431,7 +431,7 @@ lowerCar r x e k = do
     <$> lower' e k
 
 lowerCdr
-  :: GenSym :> es
+  :: (GenSym :> es, Writer (Vector QBE.DataDef) :> es)
   => Name -> QBE.Val -> Exp
   -> (QBE.Val -> Eff es BlockBuilder) -> Eff es BlockBuilder
 lowerCdr r x e k = do