FIX underflow error

2023-01-29 11:35:30 -05:00 · 2023-01-29 11:35:30 -05:00 · 38c766e025
parent 00a08d0fbe
commit 38c766e025
1 changed files with 1 additions and 1 deletions
--- 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))