wip

Author: carbolymer

cardano-cli/src/Cardano/CLI/Json/Friendly.hs

@@ -804,7 +804,8 @@ friendlyLovelace value = String $ docToText (pretty value)
 friendlyMintValue :: TxMintValue ViewTx era -> Aeson.Value
 friendlyMintValue = \case
   TxMintNone -> Null
-  TxMintValue sbe v -> friendlyValue (maryEraOnwardsToShelleyBasedEra sbe) . mconcat $ map fst v
+  txMintValue@(TxMintValue w _) ->
+    friendlyValue (maryEraOnwardsToShelleyBasedEra w) (txMintValueToValue txMintValue)
 
 friendlyTxOutValue :: TxOutValue era -> Aeson.Value
 friendlyTxOutValue = \case

cardano-cli/src/Cardano/CLI/Read.hs

@@ -352,7 +352,7 @@ readScriptWitness
       datumOrFile
       redeemerOrFile
       execUnits
-      mPid
+      _mPid -- TODO remove
     ) = do
     caseShelleyToAlonzoOrBabbageEraOnwards
       ( const $