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

dev: more thorough Journal anonymisation, and a note (#1817)

Browse Source
This commit is contained in:
Simon Michael 2022-01-29 09:19:45 -10:00
parent 3472c3cb6d
commit 248ddf9378
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Data/Types.hs
View File

@ -530,6 +530,8 @@ data Journal = Journal {
-- TODO: FilePath is a sloppy type here, don't assume it's a -- TODO: FilePath is a sloppy type here, don't assume it's a
-- real file; values like "", "-", "(string)" can be seen -- real file; values like "", "-", "(string)" can be seen
,jlastreadtime :: POSIXTime -- ^ when this journal was last read from its file(s) ,jlastreadtime :: POSIXTime -- ^ when this journal was last read from its file(s)
-- NOTE: after adding new fields, eg involving account names, consider updating
-- the Anon instance in Hleger.Cli.Anon
} deriving (Eq, Generic) } deriving (Eq, Generic)
-- | A journal in the process of being parsed, not yet finalised. -- | A journal in the process of being parsed, not yet finalised.

9
hledger/Hledger/Cli/Anon.hs
View File

@ -19,6 +19,7 @@ import Numeric (showHex)
import qualified Data.Text as T import qualified Data.Text as T
import Hledger.Data import Hledger.Data
import Data.Map (mapKeys)
class Anon a where class Anon a where
-- | Consistent converter to structure with sensitive data anonymized -- | Consistent converter to structure with sensitive data anonymized
@ -27,9 +28,11 @@ class Anon a where
instance Anon Journal where instance Anon Journal where
-- Apply the anonymisation transformation on a journal after finalisation -- Apply the anonymisation transformation on a journal after finalisation
anon j = j { jtxns = map anon . jtxns $ j anon j = j { jtxns = map anon . jtxns $ j
, jparseparentaccounts = map anonAccount $ jparseparentaccounts j , jparseparentaccounts = map anonAccount $ jparseparentaccounts j
, jparsealiases = [] -- already applied , jparsealiases = [] -- already applied
, jdeclaredaccounts = map (first anon) $ jdeclaredaccounts j , jdeclaredaccounts = map (first anon) $ jdeclaredaccounts j
, jdeclaredaccounttags = mapKeys anon $ jdeclaredaccounttags j
, jdeclaredaccounttypes = (map anon) <$> jdeclaredaccounttypes j
} }
instance Anon Posting where instance Anon Posting where