note lack of date2 support in (eg) postingsReport
This commit is contained in:
parent
6780c63ab3
commit
d1404adf3f
@ -61,6 +61,7 @@ postingsReport opts q j = (totallabel, items)
|
|||||||
(dateqcons,pdate) | date2_ opts = (Date2, postingDate2)
|
(dateqcons,pdate) | date2_ opts = (Date2, postingDate2)
|
||||||
| otherwise = (Date, postingDate)
|
| otherwise = (Date, postingDate)
|
||||||
requestedspan = dbg "requestedspan" $ queryDateSpan (date2_ opts) q -- span specified by -b/-e/-p options and query args
|
requestedspan = dbg "requestedspan" $ queryDateSpan (date2_ opts) q -- span specified by -b/-e/-p options and query args
|
||||||
|
-- XXX doesn't handle date2:
|
||||||
requestedspan' = dbg "requestedspan'" $ requestedspan `spanDefaultsFrom` journalDateSpan (date2_ opts) j -- if open-ended, close it using the journal's end dates
|
requestedspan' = dbg "requestedspan'" $ requestedspan `spanDefaultsFrom` journalDateSpan (date2_ opts) j -- if open-ended, close it using the journal's end dates
|
||||||
intervalspans = dbg "intervalspans" $ splitSpan (intervalFromOpts opts) requestedspan' -- interval spans enclosing it
|
intervalspans = dbg "intervalspans" $ splitSpan (intervalFromOpts opts) requestedspan' -- interval spans enclosing it
|
||||||
reportstart = dbg "reportstart" $ maybe Nothing spanStart $ headMay intervalspans
|
reportstart = dbg "reportstart" $ maybe Nothing spanStart $ headMay intervalspans
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user