FIX underflow error
This commit is contained in:
parent
00a08d0fbe
commit
38c766e025
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue