From bd9b5c4e73155e3774e249e15a3993d9e3b1c3dd Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Wed, 11 Mar 2026 12:09:14 +0000 Subject: [PATCH 1/2] Initial plan From abb55e149c811acc1538fd3c57b8360cb43b291f Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Wed, 11 Mar 2026 12:12:24 +0000 Subject: [PATCH 2/2] Apply hlint suggestion: use Data.Bifunctor.second instead of lambda Co-authored-by: carbolymer <228866+carbolymer@users.noreply.github.com> --- .../Test/Cardano/Api/Transaction/Body/Plutus/Scripts.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cardano-api/test/cardano-api-test/Test/Cardano/Api/Transaction/Body/Plutus/Scripts.hs b/cardano-api/test/cardano-api-test/Test/Cardano/Api/Transaction/Body/Plutus/Scripts.hs index 81e253090d..881a8f2647 100644 --- a/cardano-api/test/cardano-api-test/Test/Cardano/Api/Transaction/Body/Plutus/Scripts.hs +++ b/cardano-api/test/cardano-api-test/Test/Cardano/Api/Transaction/Body/Plutus/Scripts.hs @@ -22,6 +22,7 @@ import Cardano.Ledger.Core qualified as L import Prelude +import Data.Bifunctor (second) import Data.Function import Data.List qualified as List import Data.Map.Strict qualified as Map @@ -178,7 +179,7 @@ prop_extractAllIndexedPlutusScriptWitnesses = mconcat [ createIndexedPlutusScriptWitnesses $ Exp.extractWitnessableTxIns generatedTxInWits , createIndexedPlutusScriptWitnesses $ - map (\(w, sw) -> (w, anyScriptWitnessToAnyWitness sw)) $ + map (second anyScriptWitnessToAnyWitness) $ Exp.extractWitnessableMints generatedTxMintWits , createIndexedPlutusScriptWitnesses $ Exp.extractWitnessableCertificates generatedTxCertWits , createIndexedPlutusScriptWitnesses $ Exp.extractWitnessableWithdrawals generatedTxWithdrawals