addTracompriToAccountMap
  :: Map Account (Set Text)
  -- ^
  -> Tracompri a
  -- ^
  -> Map Account (Set Text)
  -- ^
addTracompriToAccountMap oldMap (Tracompri'Transaction txn)
  = foldl' addPostlineToAccountMap oldMap
  . fmap snd
  . balancedToSeqEnt
  . _postings
  $ txn
addTracompriToAccountMap
  :: Map Account (Set Text)
  -- ^
  -> Tracompri a
  -- ^
  -> Map Account (Set Text)
addTracompriToAccountMap oldMap (Tracompri'Transaction txn)
  = foldl' addPostlineToAccountMap oldMap
  . fmap snd
  . balancedToSeqEnt
  . _postings
  $ txn
addTracompriToAccountMap oldMap (Tracompri'Transaction txn)
  = foldl' addPostlineToAccountMap oldMap
  . fmap snd
  . balancedToSeqEnt
  . _postings
  $ txn