Remove redundant bracket

input-output-hk · Sep 30, 2022 · 111d607 · 111d607
1 parent 9b3eb1b
commit 111d607
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-runtime/src/Language/Marlowe/Runtime/Transaction/Constraints.hs b/marlowe-runtime/src/Language/Marlowe/Runtime/Transaction/Constraints.hs
@@ -392,7 +392,7 @@ mkInitialTxBodyContent protocol marloweVersion MarloweContext{..} walletCtx cons
       :: (Chain.TxOutRef, Chain.TransactionOutput, Maybe Chain.Redeemer)
       -> Maybe (C.TxIn, C.BuildTxWith C.BuildTx (C.Witness C.WitCtxTxIn C.BabbageEra))
     toCardanoTxInPair (txOutRef, txOut, mredeemer) =
-      (,) <$> (toCardanoTxIn txOutRef) <*> (C.BuildTxWith <$> toCardanoWitness mredeemer txOut)
+      (,) <$> toCardanoTxIn txOutRef <*> (C.BuildTxWith <$> toCardanoWitness mredeemer txOut)
 
     mkTxIns = do
       walletInputs <- getWalletInputs