balance: oops, note multicolumn reports not yet using all period data

87e2d49 seems to work only in GHCI, gives <<loop>> when compiled.
This commit is contained in:
Simon Michael 2014-04-15 17:19:55 -07:00
parent c51a7efc9c
commit dd1f58b785

View File

@ -75,7 +75,7 @@ multiBalanceReport opts q j = MultiBalanceReport (spans, items, totals)
depthless = dbg "depthless" . filterQuery (not . queryIsDepth) depthless = dbg "depthless" . filterQuery (not . queryIsDepth)
datelessq = dbg "datelessq" $ filterQuery (not . queryIsDate) q datelessq = dbg "datelessq" $ filterQuery (not . queryIsDate) q
precedingq = dbg "precedingq" $ And [datelessq, Date $ DateSpan Nothing (spanStart reportspan)] precedingq = dbg "precedingq" $ And [datelessq, Date $ DateSpan Nothing (spanStart reportspan)]
reportq = dbg "reportq" $ depthless $ And [datelessq, Date reportspan] -- laziness at work reportq = dbg "reportq" $ depthless q -- $ And [datelessq, Date reportspan] -- laziness at work -- XXX no good, works only in GHCI
ps :: [Posting] = ps :: [Posting] =
dbg "ps" $ dbg "ps" $