Skip to content

Commit 63060fa

Browse files
committed
plutus-scripts-bench: force target compiler version for GHC>=9
1 parent aeb0ab0 commit 63060fa

File tree

6 files changed

+579
-566
lines changed

6 files changed

+579
-566
lines changed

bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/CustomCall.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,9 @@
77

88
{-# OPTIONS_GHC -fno-warn-orphans #-}
99

10+
-- PlutusV2 must be compiled using plc 1.0
11+
{-# OPTIONS_GHC -fplugin-opt PlutusTx.Plugin:target-version=1.0.0 #-}
12+
1013
module Cardano.Benchmarking.PlutusScripts.CustomCall (script) where
1114

1215
import Language.Haskell.TH

bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/EcdsaSecp256k1Loop.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,9 @@
44
{-# LANGUAGE TypeApplications #-}
55
{-# LANGUAGE TypeFamilies #-}
66

7+
-- PlutusV2 must be compiled using plc 1.0
8+
{-# OPTIONS_GHC -fplugin-opt PlutusTx.Plugin:target-version=1.0.0 #-}
9+
710
module Cardano.Benchmarking.PlutusScripts.EcdsaSecp256k1Loop (script) where
811

912
import Language.Haskell.TH

bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/Loop.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,9 @@
44
{-# LANGUAGE TypeApplications #-}
55
{-# LANGUAGE TypeFamilies #-}
66

7+
-- PlutusV1 must be compiled using plc 1.0
8+
{-# OPTIONS_GHC -fplugin-opt PlutusTx.Plugin:target-version=1.0.0 #-}
9+
710
module Cardano.Benchmarking.PlutusScripts.Loop (script) where
811

912
import Language.Haskell.TH
@@ -14,7 +17,7 @@ import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptV1, Script(
1417
import Cardano.Benchmarking.ScriptAPI
1518
import qualified Data.ByteString.Short as SBS
1619

17-
import qualified PlutusLedgerApi.V2 as PlutusV2
20+
import qualified PlutusLedgerApi.V1 as PlutusV1
1821
import PlutusTx
1922
import PlutusTx.Builtins (unsafeDataAsI)
2023
import PlutusTx.Prelude hiding (Semigroup (..), unless, (.), (<$>))
@@ -39,7 +42,7 @@ mkValidator _datum redeemer _txContext
3942
loop i = if i == 1000000 then () else loop $ pred i
4043

4144
loopScriptShortBs :: SBS.ShortByteString
42-
loopScriptShortBs = PlutusV2.serialiseCompiledCode $$(PlutusTx.compile [|| mkValidator ||])
45+
loopScriptShortBs = PlutusV1.serialiseCompiledCode $$(PlutusTx.compile [|| mkValidator ||])
4346

4447
scriptSerialized :: PlutusScript PlutusScriptV1
4548
scriptSerialized = PlutusScriptSerialised loopScriptShortBs

bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/SchnorrSecp256k1Loop.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,9 @@
44
{-# LANGUAGE TypeApplications #-}
55
{-# LANGUAGE TypeFamilies #-}
66

7+
-- PlutusV2 must be compiled using plc 1.0
8+
{-# OPTIONS_GHC -fplugin-opt PlutusTx.Plugin:target-version=1.0.0 #-}
9+
710
module Cardano.Benchmarking.PlutusScripts.SchnorrSecp256k1Loop (script) where
811

912
import Language.Haskell.TH

0 commit comments

Comments
 (0)