Apply suggestions from code review

Co-authored-by: Jonathan Knowles <mail@jonathanknowles.net>
cardano-foundation · Jul 7, 2023 · a1c1474 · a1c1474
1 parent b4a1970
commit a1c1474
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs
@@ -971,7 +971,7 @@ assignScriptRedeemers pparams timeTranslation utxo redeemers tx =
         => Write.Tx (Write.ShelleyLedgerEra era)
         -> Either ErrAssignRedeemers
             ( Map Alonzo.RdmrPtr Redeemer
-            , (Write.Tx (Write.ShelleyLedgerEra era))
+            , Write.Tx (Write.ShelleyLedgerEra era)
             )
     assignNullRedeemers ledgerTx = do
         (indexedRedeemers, nullRedeemers) <-
@@ -1032,7 +1032,7 @@ assignScriptRedeemers pparams timeTranslation utxo redeemers tx =
     assignExecutionUnits
         :: Write.RecentEraLedgerConstraints (Write.ShelleyLedgerEra era)
         => Map Alonzo.RdmrPtr (Either ErrAssignRedeemers Alonzo.ExUnits)
-        -> (Write.Tx (Write.ShelleyLedgerEra era))
+        -> Write.Tx (Write.ShelleyLedgerEra era)
         -> Either ErrAssignRedeemers (Write.Tx (Write.ShelleyLedgerEra era))
     assignExecutionUnits exUnits ledgerTx = do
         let Alonzo.Redeemers rdmrs = view (witsTxL . rdmrsTxWitsL) ledgerTx
@@ -1057,8 +1057,8 @@ assignScriptRedeemers pparams timeTranslation utxo redeemers tx =
     -- final redeemers, if any.
     addScriptIntegrityHash
         :: Write.RecentEraLedgerConstraints (Write.ShelleyLedgerEra era)
-        => (Write.Tx (Write.ShelleyLedgerEra era))
-        -> (Write.Tx (Write.ShelleyLedgerEra era))
+        => Write.Tx (Write.ShelleyLedgerEra era)
+        -> Write.Tx (Write.ShelleyLedgerEra era)
     addScriptIntegrityHash ledgerTx =
         ledgerTx & (bodyTxL . scriptIntegrityHashTxBodyL) .~
             Alonzo.hashScriptIntegrity