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

This commit is contained in:
Simon Michael 2017-01-13 06:26:45 -08:00
parent 27d727ffad
commit 80827321c4

View File

@ -91,7 +91,7 @@ pivot tag j = j{jtxns = map pivotTrans . jtxns $ j}
where
pivotTrans t = t{tpostings = map pivotPosting . tpostings $ t}
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
where tagTuple = find ((tag ==) . fst) . postingAllImplicitTags $ p