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

Anonymize original postings

Browse Source
This commit is contained in:
Moritz Kiefer 2018-10-11 08:02:50 +02:00 committed by Simon Michael
parent 0d6803e4b5
commit ec1b31f7ba
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,6 +106,7 @@ anonymise j
pAnons p = p { paccount = T.intercalate (T.pack ":") . map anon . T.splitOn (T.pack ":") . paccount $ p pAnons p = p { paccount = T.intercalate (T.pack ":") . map anon . T.splitOn (T.pack ":") . paccount $ p
, pcomment = T.empty , pcomment = T.empty
, ptransaction = fmap tAnons . ptransaction $ p , ptransaction = fmap tAnons . ptransaction $ p
, porigin = pAnons <$> porigin p
} }
tAnons txn = txn { tpostings = map pAnons . tpostings $ txn tAnons txn = txn { tpostings = map pAnons . tpostings $ txn
, tdescription = anon . tdescription $ txn , tdescription = anon . tdescription $ txn