Use toWalletTokenBundle in Primitive.Tx.Features.Outputs.

In particular, we simplify expressions of the following form:

- `fromCardanoValue . Cardano.fromMaryValue`

The above expression peforms the following two-step conversion:

- From a ledger MA value (nested map) to a cardano-api MA value (flat map)
- From a cardano-api MA value (flat map) to a wallet MA value (nested map)

The `toWalletTokenBundle` function performs this conversion in a single step.

lib/wallet/src/Cardano/Wallet/Read/Primitive/Tx/Features/Outputs.hs

@@ -28,6 +28,8 @@ import Cardano.Wallet.Read.Eras
     ( EraFun (..), K (..) )
 import Cardano.Wallet.Read.Tx.Outputs
     ( Outputs (..) )
+import Cardano.Wallet.Shelley.Compatibility.Ledger
+    ( toWalletTokenBundle )
 import Cardano.Wallet.Util
     ( internalError )
 import Data.Foldable
@@ -89,22 +91,19 @@ fromAllegraTxOut (SL.ShelleyTxOut addr amount) = W.TxOut
 
 fromMaryTxOut :: SL.ShelleyTxOut StandardMary -> W.TxOut
 fromMaryTxOut (SL.ShelleyTxOut addr value) =
-    W.TxOut (fromShelleyAddress addr) $
-    fromCardanoValue $ Cardano.fromMaryValue value
+    W.TxOut (fromShelleyAddress addr) (toWalletTokenBundle value)
 
 fromAlonzoTxOut
     :: Alonzo.AlonzoTxOut StandardAlonzo
     -> W.TxOut
 fromAlonzoTxOut (Alonzo.AlonzoTxOut addr value _) =
-    W.TxOut (fromShelleyAddress addr) $
-    fromCardanoValue $ Cardano.fromMaryValue value
+    W.TxOut (fromShelleyAddress addr) (toWalletTokenBundle value)
 
 fromBabbageTxOut
     :: Babbage.BabbageTxOut StandardBabbage
     -> (W.TxOut, Maybe (AlonzoScript (Babbage.BabbageEra SL.StandardCrypto)))
 fromBabbageTxOut (Babbage.BabbageTxOut addr value _datum refScript) =
-    ( W.TxOut (fromShelleyAddress addr) $
-      fromCardanoValue $ Cardano.fromMaryValue value
+    ( W.TxOut (fromShelleyAddress addr) (toWalletTokenBundle value)
     , case refScript of
           SJust s -> Just s
           SNothing -> Nothing
@@ -114,8 +113,7 @@ fromConwayTxOut
     :: Babbage.BabbageTxOut StandardConway
     -> (W.TxOut, Maybe (AlonzoScript (Conway.ConwayEra SL.StandardCrypto)))
 fromConwayTxOut (Babbage.BabbageTxOut addr value _datum refScript) =
-    ( W.TxOut (fromShelleyAddress addr) $
-      fromCardanoValue $ Cardano.fromMaryValue value
+    ( W.TxOut (fromShelleyAddress addr) (toWalletTokenBundle value)
     , case refScript of
           SJust s -> Just s
           SNothing -> Nothing