Add extra construction functions to type TokenBundle.

This change adds the following convenience functions:

- `fromTokenMap`
- `fromTokenQuantity`

lib/core/src/Cardano/Wallet/Primitive/Types/TokenBundle.hs

@@ -24,6 +24,8 @@ module Cardano.Wallet.Primitive.Types.TokenBundle
     , empty
     , fromFlatList
     , fromNestedList
+    , fromTokenMap
+    , fromTokenQuantity
 
     -- * Deconstruction
     , toFlatList
@@ -194,6 +196,12 @@ fromNestedList
     -> TokenBundle
 fromNestedList c = TokenBundle c . TokenMap.fromNestedList
 
+fromTokenMap :: TokenMap -> TokenBundle
+fromTokenMap = TokenBundle (Coin 0)
+
+fromTokenQuantity :: AssetId -> TokenQuantity -> TokenBundle
+fromTokenQuantity a q = TokenBundle (Coin 0) (TokenMap.singleton a q)
+
 --------------------------------------------------------------------------------
 -- Deconstruction
 --------------------------------------------------------------------------------