ndwarshuis
/
pwncash
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX use correct length of range

This commit is contained in:
Nathan Dwarshuis 2022-12-22 20:13:03 -05:00
parent 6f38362d76
commit 966576ab1a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Internal/Utils.hs
View File

@ -66,7 +66,7 @@ compareDate (In md offset) x = case fromMatchYMD md of
(y, m, _) = toGregorian x (y, m, _) = toGregorian x
compareRange start z compareRange start z
| z < start = LT | z < start = LT
| otherwise = if (start + fromIntegral offset) < z then GT else EQ | otherwise = if (start + fromIntegral offset - 1) < z then GT else EQ
toMonth year month = (year * 12) + fromIntegral month toMonth year month = (year * 12) + fromIntegral month
dateMatches :: MatchDate -> Day -> Bool dateMatches :: MatchDate -> Day -> Bool