lib: report end date fix #403 #453

This commit is contained in:
Simon Michael 2016-12-30 14:25:19 -08:00
parent 66fcd0d4b2
commit 2b05970781

View File

@ -369,7 +369,7 @@ reportStartDate j ropts = (fst <$>) <$> reportStartEndDates j ropts
-- otherwise (for an empty journal) nothing.
-- Needs IO to parse smart dates in options/queries.
reportEndDate :: Journal -> ReportOpts -> IO (Maybe Day)
reportEndDate j ropts = (fst <$>) <$> reportStartEndDates j ropts
reportEndDate j ropts = (snd <$>) <$> reportStartEndDates j ropts
reportStartEndDates :: Journal -> ReportOpts -> IO (Maybe (Day,Day))
reportStartEndDates j ropts = do