getAccountsMap
  :: Seq (Either Text FilePath, Text)
  -- ^
  -> Accuerr (NonEmptySeq (ParseConvertProofError Pinchot.Loc))
             (Map Account (Set Text))
  -- ^
getAccountsMap = fmap f . parseConvertProofFiles
  where
    f = foldl' addTracompriToAccountMap Map.empty . join
getAccountsMap
  :: Seq (Either Text FilePath, Text)
  -- ^
  -> Accuerr (NonEmptySeq (ParseConvertProofError Pinchot.Loc))
             (Map Account (Set Text))
getAccountsMap = fmap f . parseConvertProofFiles
  where
    f = foldl' addTracompriToAccountMap Map.empty . join
getAccountsMap = fmap f . parseConvertProofFiles
  where
    f = foldl' addTracompriToAccountMap Map.empty . join