From 62639875102decae2bb96b3847ae48db5d1f8fd0 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 18 Jun 2025 10:09:56 +0200
Subject: Complete pattern matches

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

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

diff --git a/src/AST/Count.hs b/src/AST/Count.hs
index 05be524..ca4d7ab 100644
--- a/src/AST/Count.hs
+++ b/src/AST/Count.hs
@@ -136,6 +136,7 @@ occCountGeneral onehot unpush alter many = go WId
       EWith _ _ a b -> re a <> re1 b
       EAccum _ _ _ a _ b e -> re a <> re b <> re e
       EZero _ _ e -> re e
+      EDeepZero _ _ e -> re e
       EPlus _ _ a b -> re a <> re b
       EOneHot _ _ _ a b -> re a <> re b
       EError{} -> mempty
-- 
cgit v1.2.3-70-g09d2