Anonymize original postings

2018-10-11 08:02:50 +02:00 · 2018-10-11 08:02:50 +02:00 · ec1b31f7ba
commit ec1b31f7ba
parent 0d6803e4b5
1 changed files with 1 additions and 0 deletions
--- a/hledger/Hledger/Cli/Utils.hs
+++ b/hledger/Hledger/Cli/Utils.hs
@ -106,6 +106,7 @@ anonymise j
      pAnons p = p { paccount = T.intercalate (T.pack ":") . map anon . T.splitOn (T.pack ":") . paccount $ p
                   , pcomment = T.empty
                   , ptransaction = fmap tAnons . ptransaction $ p
+                   , porigin = pAnons <$> porigin p
                   }
      tAnons txn = txn { tpostings = map pAnons . tpostings $ txn
                       , tdescription = anon . tdescription $ txn