From d1b2e2c3a3cdaf49ff5e4bae6fe9b0612c3779c2 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 18 Jun 2025 00:00:11 +0200
Subject: Tests pass, should check if output is sensible

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

(limited to 'src/AST/Count.hs')

diff --git a/src/AST/Count.hs b/src/AST/Count.hs
index 03a36f6..05be524 100644
--- a/src/AST/Count.hs
+++ b/src/AST/Count.hs
@@ -134,7 +134,7 @@ occCountGeneral onehot unpush alter many = go WId
       ECustom _ _ _ _ _ _ _ a b -> re a <> re b
       ERecompute _ e -> re e
       EWith _ _ a b -> re a <> re1 b
-      EAccum _ _ _ a b e -> re a <> re b <> re e
+      EAccum _ _ _ a _ b e -> re a <> re b <> re e
       EZero _ _ e -> re e
       EPlus _ _ a b -> re a <> re b
       EOneHot _ _ _ a b -> re a <> re b
-- 
cgit v1.2.3-70-g09d2