From 88fae8c2914b805a733b71de58ab672124e6069c Mon Sep 17 00:00:00 2001
From: Tom Smeding <t.j.smeding@uu.nl>
Date: Mon, 27 Jan 2025 15:08:02 +0100
Subject: Add ext field to remaining AST constructors

---
 src/CHAD/Accum.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/CHAD/Accum.hs')

diff --git a/src/CHAD/Accum.hs b/src/CHAD/Accum.hs
index e26f781..659c45f 100644
--- a/src/CHAD/Accum.hs
+++ b/src/CHAD/Accum.hs
@@ -21,7 +21,7 @@ makeAccumulators :: SList STy envPro -> Ex (Append (D2AcE envPro) env) t -> Ex e
 makeAccumulators SNil e = e
 makeAccumulators (t `SCons` envpro) e =
   makeAccumulators envpro $
-    EWith (EZero t) e
+    EWith ext (EZero ext t) e
 
 uninvertTup :: SList STy list -> STy core -> Ex env (InvTup core list) -> Ex env (TPair core (Tup list))
 uninvertTup SNil _ e = EPair ext e (ENil ext)
-- 
cgit v1.2.3-70-g09d2