-- An alternative nested representation
--

-- | An alternative nested representation for 'Value' that groups assets that
-- share a 'PolicyId'.
--
newtype ValueNestedRep = ValueNestedRep [ValueNestedBundle]
  deriving (Eq, Ord, Show)

-- | A bundle within a 'ValueNestedRep' for a single 'PolicyId', or for the
-- special case of bcc.
--
data ValueNestedBundle = ValueNestedBundleBcc Quantity
                       | ValueNestedBundle PolicyId (Map AssetName Quantity)