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

rewrite: -> JournalSourcePos

Browse Source
This commit is contained in:
Simon Michael 2017-01-22 14:24:53 -08:00
parent 4221381f18
commit ee62d9eb79
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/hledger-rewrite.hs
View File

@ -155,7 +155,7 @@ diffTxn j t t' =
-- suffix .ledger (generated). I.e. move transaction from one file to another. -- suffix .ledger (generated). I.e. move transaction from one file to another.
diffs :: [DiffLine String] diffs :: [DiffLine String]
diffs = concat . map (traverse showPostingLines . mapDiff) $ D.getDiff (tpostings t) (tpostings t') diffs = concat . map (traverse showPostingLines . mapDiff) $ D.getDiff (tpostings t) (tpostings t')
pos@(LedgerSourcePos fp (line, line')) -> (pos, diffs) where pos@(JournalSourcePos fp (line, line')) -> (pos, diffs) where
-- We do diff for original lines vs generated ones. Often leads -- We do diff for original lines vs generated ones. Often leads
-- to big diff because of re-format effect. -- to big diff because of re-format effect.
diffs :: [DiffLine String] diffs :: [DiffLine String]