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

cli: don't add the tag name/field name as prefix

Browse Source
This commit is contained in:
Simon Michael 2017-01-13 06:26:45 -08:00
parent 27d727ffad
commit 80827321c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Utils.hs
View File

@ -91,7 +91,7 @@ pivot tag j = j{jtxns = map pivotTrans . jtxns $ j}
where where
pivotTrans t = t{tpostings = map pivotPosting . tpostings $ t} pivotTrans t = t{tpostings = map pivotPosting . tpostings $ t}
pivotPosting p pivotPosting p
| Just (_ , value) <- tagTuple = p{paccount = joinAccountNames tag value, porigin = Just $ originalPosting p} | Just (_ , value) <- tagTuple = p{paccount = value, porigin = Just $ originalPosting p}
| _ <- tagTuple = p | _ <- tagTuple = p
where tagTuple = find ((tag ==) . fst) . postingAllImplicitTags $ p where tagTuple = find ((tag ==) . fst) . postingAllImplicitTags $ p