From 38c766e025fa1a7cbd454396e153d9b6659531df Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 29 Jan 2023 11:35:30 -0500
Subject: [PATCH] FIX underflow error

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

diff --git a/lib/Internal/Insert.hs b/lib/Internal/Insert.hs
index 199ebcb..42340c0 100644
--- a/lib/Internal/Insert.hs
+++ b/lib/Internal/Insert.hs
@@ -54,7 +54,7 @@ cronPatternMatches
     , cronDay = d
     }
   x =
-    yMaybe (y' - 2000) y && mdMaybe m' m && mdMaybe d' d && wdMaybe (dayOfWeek_ x) w
+    yMaybe y' y && mdMaybe m' m && mdMaybe d' d && wdMaybe (dayOfWeek_ x) w
     where
       testMaybe = maybe True
       yMaybe z = testMaybe (mdyPatternMatches (fromIntegral z))