From 37bb2755c9962c7e025bbb3b2b44d1b0c8eda81b Mon Sep 17 00:00:00 2001 From: Yuriy Syrovetskiy Date: Thu, 6 May 2021 19:35:38 +0300 Subject: [PATCH] fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! Add getTransactionBodyContent --- cardano-api/src/Cardano/Api/TxBody.hs | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/cardano-api/src/Cardano/Api/TxBody.hs b/cardano-api/src/Cardano/Api/TxBody.hs index a00593819aa..3093ee33c14 100644 --- a/cardano-api/src/Cardano/Api/TxBody.hs +++ b/cardano-api/src/Cardano/Api/TxBody.hs @@ -1232,8 +1232,6 @@ fromLedgerTxAuxiliaryData era (Just auxData) = TxMetadataInEra TxMetadataInShelleyEra $ TxMetadata ms , TxAuxScriptsNone ) - where - (ms, _) = fromLedgerAuxiliaryData era auxData ShelleyBasedEraAllegra -> ( if null ms then TxMetadataNone @@ -1243,8 +1241,6 @@ fromLedgerTxAuxiliaryData era (Just auxData) = [] -> TxAuxScriptsNone _ -> TxAuxScripts AuxScriptsInAllegraEra ss ) - where - (ms, ss) = fromLedgerAuxiliaryData era auxData ShelleyBasedEraMary -> ( if null ms then TxMetadataNone @@ -1254,8 +1250,8 @@ fromLedgerTxAuxiliaryData era (Just auxData) = [] -> TxAuxScriptsNone _ -> TxAuxScripts AuxScriptsInMaryEra ss ) - where - (ms, ss) = fromLedgerAuxiliaryData era auxData + where + (ms, ss) = fromLedgerAuxiliaryData era auxData fromLedgerTxWithdrawals @@ -1657,9 +1653,7 @@ toShelleySimpleScript :: SimpleScriptInEra era toShelleySimpleScript (SimpleScriptInEra langInEra version script) = toShelleyScript (ScriptInEra langInEra (SimpleScript version script)) - -toShelleyWithdrawal :: [(StakeAddress, Lovelace, a)] - -> Shelley.Wdrl StandardCrypto +toShelleyWithdrawal :: [(StakeAddress, Lovelace, a)] -> Shelley.Wdrl StandardCrypto toShelleyWithdrawal withdrawals = Shelley.Wdrl $ Map.fromList