Update writeBits use in NQueens

IntersectMBO · Jul 19, 2024 · 7bd6e70 · 7bd6e70
1 parent 67b577e
commit 7bd6e70
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/plutus-benchmark/bitwise/src/PlutusBenchmark/NQueens.hs b/plutus-benchmark/bitwise/src/PlutusBenchmark/NQueens.hs
@@ -1,12 +1,9 @@
 -- editorconfig-checker-disable-file
 {-# LANGUAGE MultiWayIf        #-}
 {-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE TypeApplications  #-}
 
 module PlutusBenchmark.NQueens (nqueens) where
 
-import PlutusTx.Builtins (complementByteString, findFirstSetBit, orByteString, replicateByte,
-                          shiftByteString, writeBits)
 import PlutusTx.Prelude
 
 -- Based on Qiu, Zongyan (February 2002). "Bit-vector encoding of n-queen problem". ACM SIGPLAN Notices. 37 (2): 68–70
@@ -76,4 +73,4 @@ selectByteString which bs
 
 {-# INLINE writeBit #-}
 writeBit :: BuiltinByteString -> Integer -> Bool -> BuiltinByteString
-writeBit bs i b = writeBits bs . toBuiltin @[(Integer, Bool)] $ [(i, b)]
+writeBit bs i b = writeBits bs [i] [b]