simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-29 05:11:33 +03:00
Code Issues Projects Releases Wiki Activity

fix a warning

Browse Source
This commit is contained in:
Simon Michael 2014-04-14 08:31:11 -07:00
parent a761ae5b86
commit 746f22458f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Data/Posting.hs
View File

@ -179,7 +179,7 @@ postingsDateSpan ps = DateSpan (Just $ postingDate $ head ps') (Just $ addDays 1
-- --date2-sensitive version, as above.
postingsDateSpan' :: WhichDate -> [Posting] -> DateSpan
postingsDateSpan' wd [] = DateSpan Nothing Nothing
postingsDateSpan' _ [] = DateSpan Nothing Nothing
postingsDateSpan' wd ps = DateSpan (Just $ postingdate $ head ps') (Just $ addDays 1 $ postingdate $ last ps')
where
ps' = sortBy (comparing postingdate) ps