From c9e7b67683a1541baeeac6568d09d4e9e3515fc3 Mon Sep 17 00:00:00 2001 From: Jared Corduan Date: Thu, 10 Mar 2022 11:27:12 -0500 Subject: [PATCH] Apply suggestions from code review Co-authored-by: Alexey Kuleshevich --- eras/babbage/impl/src/Cardano/Ledger/Babbage/Scripts.hs | 4 ++-- .../src/Test/Cardano/Ledger/Examples/BabbageFeatures.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/eras/babbage/impl/src/Cardano/Ledger/Babbage/Scripts.hs b/eras/babbage/impl/src/Cardano/Ledger/Babbage/Scripts.hs index 5c1c934a109..8f1e3a8b200 100644 --- a/eras/babbage/impl/src/Cardano/Ledger/Babbage/Scripts.hs +++ b/eras/babbage/impl/src/Cardano/Ledger/Babbage/Scripts.hs @@ -110,9 +110,9 @@ babbageInputDataHashes hashScriptMap tx (UTxO mp) = txbody = body tx spendinputs = getField @"inputs" txbody :: (Set (TxIn (Crypto era))) smallUtxo = spendinputs SplitMap.◁ mp - accum ans@(hashSet, inputSet) txin txout = + accum ans@(!hashSet, !inputSet) txin txout = case txout of - (TxOut addr _ NoDatum _) -> + TxOut addr _ NoDatum _ -> if isTwoPhaseScriptAddressFromMap @era hashScriptMap addr then (hashSet, Set.insert txin inputSet) else ans diff --git a/libs/cardano-ledger-test/src/Test/Cardano/Ledger/Examples/BabbageFeatures.hs b/libs/cardano-ledger-test/src/Test/Cardano/Ledger/Examples/BabbageFeatures.hs index 74c9b55735e..ae6cdaab334 100644 --- a/libs/cardano-ledger-test/src/Test/Cardano/Ledger/Examples/BabbageFeatures.hs +++ b/libs/cardano-ledger-test/src/Test/Cardano/Ledger/Examples/BabbageFeatures.hs @@ -148,7 +148,7 @@ defaultPPs = MaxValSize 1000000000, MaxTxExUnits $ ExUnits 1000000 1000000, MaxBlockExUnits $ ExUnits 1000000 1000000, - ProtocolVersion $ ProtVer 6 0, + ProtocolVersion $ ProtVer 7 0, CollateralPercentage 100 ]