FIX underflow error

This commit is contained in:
Nathan Dwarshuis 2023-01-29 11:35:30 -05:00
parent 00a08d0fbe
commit 38c766e025
1 changed files with 1 additions and 1 deletions

View File

@ -54,7 +54,7 @@ cronPatternMatches
, cronDay = d , cronDay = d
} }
x = 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 where
testMaybe = maybe True testMaybe = maybe True
yMaybe z = testMaybe (mdyPatternMatches (fromIntegral z)) yMaybe z = testMaybe (mdyPatternMatches (fromIntegral z))