fixup! fixup! fixup! Add getTransactionBodyContent

IntersectMBO · May 4, 2021 · 41fa2e7 · 41fa2e7
1 parent f3391be
commit 41fa2e7
Showing 1 changed file with 4 additions and 7 deletions.
diff --git a/cardano-api/src/Cardano/Api/TxBody.hs b/cardano-api/src/Cardano/Api/TxBody.hs
@@ -1444,13 +1444,10 @@ getShelleyTxBodyContent body metadata = do
           TxUpdateProposal UpdateProposalInShelleyEra $ fromShelleyUpdate p
 
 
-getAllegraTxBodyContent ::  ShelleyMA.TxBody (ShelleyLedgerEra AllegraEra)
-                        ->  Maybe
-                              (ShelleyMA.AuxiliaryData
-                                (ShelleyLedgerEra AllegraEra))
-                        ->  Either
-                              (TxBodyError AllegraEra)
-                              (TxBodyContent ViewTx AllegraEra)
+getAllegraTxBodyContent
+  :: ShelleyMA.TxBody (ShelleyLedgerEra AllegraEra)
+  -> Maybe (ShelleyMA.AuxiliaryData (ShelleyLedgerEra AllegraEra))
+  -> Either (TxBodyError AllegraEra) (TxBodyContent ViewTx AllegraEra)
 getAllegraTxBodyContent
   (ShelleyMA.TxBody
     inputs