From 746f22458f5ec7d6850a63332f0350952bfbe57b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 14 Apr 2014 08:31:11 -0700 Subject: [PATCH] fix a warning --- hledger-lib/Hledger/Data/Posting.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Data/Posting.hs b/hledger-lib/Hledger/Data/Posting.hs index a1c96eab8..e28401ff9 100644 --- a/hledger-lib/Hledger/Data/Posting.hs +++ b/hledger-lib/Hledger/Data/Posting.hs @@ -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