Propagate TxOutDatumInline throughout cardano-cli

IntersectMBO · Apr 6, 2022 · ba457eb · ba457eb
1 parent 014c5f6
commit ba457eb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Run/Friendly.hs b/cardano-cli/src/Cardano/CLI/Run/Friendly.hs
@@ -169,7 +169,7 @@ friendlyTxOut (TxOut addr amount mdatum) =
    renderDatum TxOutDatumNone = Aeson.Null
    renderDatum (TxOutDatumHash _ h) =
      Aeson.String $ serialiseToRawBytesHexText h
-   renderDatum (TxOutDatum _ sData) =
+   renderDatum (TxOutDatumInTx _ sData) =
      scriptDataToJson ScriptDataJsonDetailedSchema sData
    renderDatum (TxOutDatumInline _ _) = panic "TODO: Babbage"
 

diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Transaction.hs
@@ -685,7 +685,7 @@ toTxOutInAnyEra era (TxOutAnyEra addr val mDatumHash) =
       sData <- readScriptDataOrFile fileOrSdata
       TxOut <$> toAddressInAnyEra era addr
             <*> toTxOutValueInAnyEra era val
-            <*> pure (TxOutDatum supported sData)
+            <*> pure (TxOutDatumInTx supported sData)
 
     (Nothing, _) ->
       txFeatureMismatch era TxFeatureTxOutDatum