fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup! fixup!…

… fixup! fixup! Add getTransactionBodyContent
IntersectMBO · May 6, 2021 · 37bb275 · 37bb275
1 parent f9729ca
commit 37bb275
Showing 1 changed file with 3 additions and 9 deletions.
diff --git 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