getOwnersByTxId
    :: C.WorkMode m
    => Maybe UserCache -> C.PeriodId -> C.TransactionId -> m [(C.Mintette, C.MintetteId)]
getOwnersByTxId maybeCache p tId = toOwners <$> getMintettesList maybeCache p
  where
    toOwners mts =
        map
            (\i ->
                  (mts !! i, i)) $
        C.owners mts tId
getOwnersByTxId
    :: C.WorkMode m
    => Maybe UserCache -> C.PeriodId -> C.TransactionId -> m [(C.Mintette, C.MintetteId)]
getOwnersByTxId maybeCache p tId = toOwners <$> getMintettesList maybeCache p
  where
    toOwners mts =
        map
            (\i ->
                  (mts !! i, i)) $
        C.owners mts tId
getOwnersByTxId maybeCache p tId = toOwners <$> getMintettesList maybeCache p
  where
    toOwners mts =
        map
            (\i ->
                  (mts !! i, i)) $
        C.owners mts tId