Apply suggestions from code review

Co-authored-by: Alexey Kuleshevich <[email protected]>
IntersectMBO · Mar 10, 2022 · c9e7b67 · c9e7b67
1 parent f050e52
commit c9e7b67
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
   ]