slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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. -- --date2-sensitive version, as above.
postingsDateSpan' :: WhichDate -> [Posting] -> DateSpan 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') postingsDateSpan' wd ps = DateSpan (Just $ postingdate $ head ps') (Just $ addDays 1 $ postingdate $ last ps')
where where
ps' = sortBy (comparing postingdate) ps ps' = sortBy (comparing postingdate) ps