From c36849cb6247f957b4e6b093e16d04421c8cea3d Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 25 May 2025 23:35:31 +0200
Subject: ERecompute

---
 src/ForwardAD/DualNumbers.hs | 1 +
 1 file changed, 1 insertion(+)

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

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