From c586e7d2343fa735a9b27e0b1a201dd2cb2bc68e Mon Sep 17 00:00:00 2001
From: Tom Smeding <t.j.smeding@uu.nl>
Date: Mon, 21 Apr 2025 21:56:34 +0200
Subject: Add integer modulo operator

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

(limited to 'src/ForwardAD')

diff --git a/src/ForwardAD/DualNumbers.hs b/src/ForwardAD/DualNumbers.hs
index 9a95f81..2f94076 100644
--- a/src/ForwardAD/DualNumbers.hs
+++ b/src/ForwardAD/DualNumbers.hs
@@ -86,6 +86,9 @@ dop = \case
   OIDiv t -> scalTyCase t
     (case t of {})
     (EOp ext (OIDiv t))
+  OMod t -> scalTyCase t
+    (case t of {})
+    (EOp ext (OMod t))
   where
     add :: ScalIsNumeric t ~ True
         => SScalTy t -> Ex env' (TScal t) -> Ex env' (TScal t) -> Ex env' (TScal t)
-- 
cgit v1.2.3-70-g09d2