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/ForwardAD/DualNumbers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ForwardAD/DualNumbers.hs')

diff --git a/src/ForwardAD/DualNumbers.hs b/src/ForwardAD/DualNumbers.hs
index e8b140e..aa35a5b 100644
--- a/src/ForwardAD/DualNumbers.hs
+++ b/src/ForwardAD/DualNumbers.hs
@@ -178,7 +178,7 @@ dfwdDN = \case
     ELet ext (dfwdDN e1) $
     ELet ext (weakenExpr WSink (dfwdDN e2)) $
       weakenExpr (WCopy (WCopy WClosed)) (dfwdDN pr)
-  EError t s -> EError (dn t) s
+  EError _ t s -> EError ext (dn t) s
 
   EWith{} -> err_accum
   EAccum{} -> err_accum
-- 
cgit v1.2.3-70-g09d2