slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: layout

Browse Source
This commit is contained in:
Simon Michael 2011-06-28 22:31:56 +00:00
parent 64f0c22e25
commit d83553661f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Register.hs
View File

@ -209,9 +209,9 @@ accountRegisterReport opts j m thisacctmatcher = (label, items)
ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j
-- starting balance: if we are filtering by a start date and nothing else, -- starting balance: if we are filtering by a start date and nothing else,
-- the sum of postings to this account before that date; otherwise zero. -- the sum of postings to this account before that date; otherwise zero.
(startbal,label, sumfn) | matcherIsNull m = (nullmixedamt,balancelabel,(-)) (startbal,label, sumfn) | matcherIsNull m = (nullmixedamt, balancelabel, (-))
| matcherIsStartDateOnly effective m = (sumPostings priorps,balancelabel,(-)) | matcherIsStartDateOnly effective m = (sumPostings priorps, balancelabel, (-))
| otherwise = (nullmixedamt,totallabel,(+)) | otherwise = (nullmixedamt, totallabel, (+))
where where
priorps = -- ltrace "priorps" $ priorps = -- ltrace "priorps" $
filter (matchesPosting filter (matchesPosting