parent
66fcd0d4b2
commit
2b05970781
@ -369,7 +369,7 @@ reportStartDate j ropts = (fst <$>) <$> reportStartEndDates j ropts
|
|||||||
-- otherwise (for an empty journal) nothing.
|
-- otherwise (for an empty journal) nothing.
|
||||||
-- Needs IO to parse smart dates in options/queries.
|
-- Needs IO to parse smart dates in options/queries.
|
||||||
reportEndDate :: Journal -> ReportOpts -> IO (Maybe Day)
|
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 :: Journal -> ReportOpts -> IO (Maybe (Day,Day))
|
||||||
reportStartEndDates j ropts = do
|
reportStartEndDates j ropts = do
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user