Bump plutarch dep.

input-output-hk · Dec 17, 2024 · 7181d48 · 7181d48
1 parent 58c8c17
commit 7181d48
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/cabal.project b/cabal.project
@@ -26,7 +26,7 @@ packages:
 source-repository-package
     type: git
     location: https://github.com/colll78/plutarch-plutus
-    tag: 548cb641378b4c00bc02abfdcd723821b08141f5
+    tag: b2379767c7f1c70acf28206bf922f128adc02f28
     subdir:
       .
       plutarch-ledger-api

diff --git a/src/plutarch-onchain-lib/lib/Plutarch/Core/List.hs b/src/plutarch-onchain-lib/lib/Plutarch/Core/List.hs
@@ -158,10 +158,10 @@ penforceNSpendRedeemers n rdmrs =
 
 pisUniqueSet :: Term s (PInteger :--> PBuiltinList PInteger :--> PBool)
 pisUniqueSet = phoistAcyclic $ plam $ \n xs ->
-  let flagUniqueBits = pwriteBits # emptyByteArray # xs # pconstant [True]
+  let flagUniqueBits = pwriteBits # emptyByteArray # xs # pconstant True
   in (pcountSetBits # flagUniqueBits #== (pbuiltinListLengthFast # n # xs))
 
 phasNUniqueElements :: Term s (PInteger :--> PBuiltinList PInteger :--> PBool)
 phasNUniqueElements = phoistAcyclic $ plam $ \n xs ->
-  let flagUniqueBits = pwriteBits # emptyByteArray # xs # pconstant [True]
+  let flagUniqueBits = pwriteBits # emptyByteArray # xs # pconstant True
   in (pcountSetBits # flagUniqueBits #== n)