From c791c5a692f17ebe9732b213a2b7983c3b969960 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 29 Jan 2023 11:36:12 -0500
Subject: [PATCH] FIX counter error

---
 lib/Internal/Statement.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Internal/Statement.hs b/lib/Internal/Statement.hs
index 80f9028..6ce943c 100644
--- a/lib/Internal/Statement.hs
+++ b/lib/Internal/Statement.hs
@@ -147,7 +147,7 @@ zipperMatch' z x = go z
 
 matchDec :: Match -> Maybe Match
 matchDec m = case mTimes m of
-  Just 0 -> Nothing
+  Just 1 -> Nothing
   Just n -> Just $ m {mTimes = Just $ n - 1}
   Nothing -> Just m