Merge pull request #770 from locallycompact/lc/fromCtxUTxOTxOut

Add fromCtxUTxOTxOut

Author: carbolymer

cardano-api/src/Cardano/Api/Internal/Tx/Body.hs

@@ -288,6 +288,7 @@ module Cardano.Api.Internal.Tx.Body
   , TxOutValue (..)
   , TxOutDatum (TxOutDatumNone, TxOutDatumHash, TxOutSupplementalDatum, TxOutDatumInline)
   , toCtxUTxOTxOut
+  , fromCtxUTxOTxOut
   , lovelaceToTxOutValue
   , prettyRenderTxOut
   , txOutValueToLovelace
@@ -561,6 +562,14 @@ toCtxUTxOTxOut (TxOut addr val d refS) =
         TxOutDatumInline s sd -> TxOutDatumInline s sd
    in TxOut addr val dat refS
 
+fromCtxUTxOTxOut :: TxOut CtxUTxO era -> TxOut CtxTx era
+fromCtxUTxOTxOut (TxOut addr val d refS) =
+  let dat = case d of
+        TxOutDatumNone -> TxOutDatumNone
+        TxOutDatumHash s h -> TxOutDatumHash s h
+        TxOutDatumInline s sd -> TxOutDatumInline s sd
+   in TxOut addr val dat refS
+
 instance IsCardanoEra era => ToJSON (TxOut ctx era) where
   toJSON = txOutToJsonValue cardanoEra