From 79e072eddf0ec2a97ca455c27cb5ff6f2132bbab Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 22 Oct 2024 22:02:06 +0200
Subject: Differentiate Replicate

---
 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 3e45ce7..a93b8e6 100644
--- a/src/ForwardAD/DualNumbers.hs
+++ b/src/ForwardAD/DualNumbers.hs
@@ -153,7 +153,7 @@ dfwdDN = \case
   EBuild1 _ a b -> EBuild1 ext (dfwdDN a) (dfwdDN b)
   EBuild _ n a b
     | Refl <- dnPreservesTupIx n -> EBuild ext n (dfwdDN a) (dfwdDN b)
-  EFold1Inner _ a b -> EFold1Inner ext (dfwdDN a) (dfwdDN b)
+  EFold1Inner _ a b c -> EFold1Inner ext (dfwdDN a) (dfwdDN b) (dfwdDN c)
   ESum1Inner _ e ->
     let STArr n (STScal t) = typeOf e
         pairty = (STPair (STScal t) (STScal t))
-- 
cgit v1.2.3-70-g09d2