diff --git a/plutus-benchmark/bitwise/bench/Main.hs b/plutus-benchmark/bitwise/bench/Main.hs index 110b460cb2e..8841ffac3ce 100644 --- a/plutus-benchmark/bitwise/bench/Main.hs +++ b/plutus-benchmark/bitwise/bench/Main.hs @@ -1,17 +1,14 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE TemplateHaskell #-} + module Main (main) where -{- import Criterion.Main (bench, defaultMain) import PlutusBenchmark.Common (benchProgramCek, mkMostRecentEvalCtx) import PlutusBenchmark.NQueens (nqueens) import PlutusTx.Code (CompiledCode, getPlcNoAnn) +import PlutusTx.Plugin () import PlutusTx.TH (compile) --} - -main :: IO () -main = print "Pending" - -{- Currently not able to run, due to problems with writeBits compiling under PlutusTx main :: IO () main = defaultMain [ @@ -21,6 +18,5 @@ main = defaultMain [ -- Helpers nqueensCompiled :: CompiledCode [(Integer, Integer)] -nqueensCompiled = $$(compile [||nqueens 8||]) +nqueensCompiled = $$(compile [|| nqueens 8 ||]) --} diff --git a/plutus-benchmark/plutus-benchmark.cabal b/plutus-benchmark/plutus-benchmark.cabal index 28fd92ad75f..ebf9dfa8c8f 100644 --- a/plutus-benchmark/plutus-benchmark.cabal +++ b/plutus-benchmark/plutus-benchmark.cabal @@ -618,10 +618,10 @@ benchmark bitwise-bench type: exitcode-stdio-1.0 main-is: Main.hs hs-source-dirs: bitwise/bench - build-depends: base >=4.9 && <5 - --- , bitwise-internal --- , criterion --- , plutus-benchmark-common --- , plutus-tx ^>=1.30 --- , plutus-tx-plugin ^>=1.30 + build-depends: + , base >=4.9 && <5 + , bitwise-internal + , criterion + , plutus-benchmark-common + , plutus-tx ^>=1.31 + , plutus-tx-plugin ^>=1.31