Skip to content

Commit 793248b

Browse files
fmastefmaste
committed
bench: plutus-scripts-bench: rigorous imports and formatting
1 parent ae4610a commit 793248b

8 files changed

Lines changed: 51 additions & 86 deletions

File tree

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

Lines changed: 5 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -11,21 +11,17 @@ module Cardano.Benchmarking.PlutusScripts.CustomCall (script) where
1111

1212
import Cardano.Api (PlutusScript (..), PlutusScriptV2, PlutusScriptVersion (..),
1313
Script (..), toScriptInAnyLang)
14-
1514
import Cardano.Benchmarking.PlutusScripts.CustomCallTypes
1615
import Cardano.Benchmarking.ScriptAPI
17-
import qualified PlutusLedgerApi.V2 as PlutusV2
18-
19-
import Prelude as Haskell (String, (.), (<$>))
20-
2116
import qualified Data.ByteString.Short as SBS
22-
23-
import Language.Haskell.TH
24-
import Language.Haskell.TH.Syntax
25-
import qualified PlutusTx
17+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
18+
import qualified PlutusLedgerApi.V2 as PlutusV2
19+
import qualified PlutusTx (compile)
2620
import PlutusTx.Foldable (sum)
2721
import PlutusTx.List (all, length)
2822
import PlutusTx.Prelude as Plutus hiding (Semigroup (..), (.), (<$>))
23+
import Prelude as Haskell (String, (.), (<$>))
24+
2925

3026
script :: PlutusBenchScript
3127
script = mkPlutusBenchScript scriptName (toScriptInAnyLang (PlutusScript PlutusScriptV2 scriptSerialized))

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

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -7,21 +7,16 @@
77

88
module Cardano.Benchmarking.PlutusScripts.EcdsaSecp256k1Loop (script) where
99

10-
import Cardano.Api (PlutusScript (..), PlutusScriptV2, PlutusScriptVersion (..),
11-
Script (..), toScriptInAnyLang)
12-
10+
import Cardano.Api (PlutusScript (..), PlutusScriptV2,
11+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
1312
import Cardano.Benchmarking.ScriptAPI
14-
import qualified PlutusLedgerApi.V2 as PlutusV2
15-
16-
import Prelude as Haskell (String, (.), (<$>))
17-
1813
import qualified Data.ByteString.Short as SBS
19-
20-
import Language.Haskell.TH
21-
import Language.Haskell.TH.Syntax
22-
import qualified PlutusTx
14+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
15+
import qualified PlutusLedgerApi.V2 as PlutusV2
16+
import qualified PlutusTx (compile)
2317
import qualified PlutusTx.Builtins as BI
2418
import PlutusTx.Prelude as P hiding (Semigroup (..), (.), (<$>))
19+
import Prelude as Haskell (String, (.), (<$>))
2520

2621

2722
scriptName :: Haskell.String

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/HashOntoG2AndAdd.hs‎

Lines changed: 7 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -9,23 +9,18 @@
99

1010
module Cardano.Benchmarking.PlutusScripts.HashOntoG2AndAdd (script) where
1111

12-
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
13-
Script (..), toScriptInAnyLang)
14-
12+
import Cardano.Api (PlutusScript (..), PlutusScriptV3,
13+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
1514
import Cardano.Benchmarking.ScriptAPI
16-
import qualified PlutusLedgerApi.V3 as PlutusV3
17-
18-
import Prelude as Haskell (String, (.), (<$>))
19-
2015
import qualified Data.ByteString.Short as SBS
2116
import GHC.ByteOrder (ByteOrder (LittleEndian))
22-
23-
import Language.Haskell.TH
24-
import Language.Haskell.TH.Syntax
25-
import qualified PlutusTx
17+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
18+
import qualified PlutusLedgerApi.V3 as PlutusV3
19+
import qualified PlutusTx (compile)
2620
import qualified PlutusTx.Builtins.Internal as BI (BuiltinList, head, snd, tail, unitval,
2721
unsafeDataAsConstr)
2822
import PlutusTx.Prelude as Tx hiding (Semigroup (..), (.), (<$>))
23+
import Prelude as Haskell (String, (.), (<$>))
2924

3025

3126
scriptName :: Haskell.String
@@ -35,6 +30,7 @@ scriptName
3530
script :: PlutusBenchScript
3631
script = mkPlutusBenchScript scriptName (toScriptInAnyLang (PlutusScript PlutusScriptV3 scriptSerialized))
3732

33+
3834
{-# INLINABLE mkValidator #-}
3935
mkValidator :: BuiltinData -> BuiltinUnit
4036
mkValidator arg =

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/Loop2024.hs‎

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -7,21 +7,16 @@
77

88
module Cardano.Benchmarking.PlutusScripts.Loop2024 (script) where
99

10-
import Cardano.Api (PlutusScript (..), PlutusScriptV1, PlutusScriptVersion (..),
11-
Script (..), toScriptInAnyLang)
12-
10+
import Cardano.Api (PlutusScript (..), PlutusScriptV1,
11+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
1312
import Cardano.Benchmarking.ScriptAPI
14-
import qualified PlutusLedgerApi.V1 as PlutusV1
15-
16-
import Prelude hiding (pred, ($), (&&), (<), (==))
17-
1813
import qualified Data.ByteString.Short as SBS
19-
20-
import Language.Haskell.TH
21-
import Language.Haskell.TH.Syntax
22-
import PlutusTx
14+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
15+
import qualified PlutusLedgerApi.V1 as PlutusV1
16+
import qualified PlutusTx (compile)
2317
import PlutusTx.Builtins (unsafeDataAsI)
2418
import PlutusTx.Prelude hiding (Semigroup (..), unless, (.), (<$>))
19+
import Prelude hiding (pred, ($), (&&), (<), (==))
2520

2621

2722
scriptName :: String

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/LoopV3.hs‎

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -4,23 +4,18 @@
44

55
module Cardano.Benchmarking.PlutusScripts.LoopV3 (script) where
66

7-
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
8-
Script (..), toScriptInAnyLang)
9-
7+
import Cardano.Api (PlutusScript (..), PlutusScriptV3,
8+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
109
import Cardano.Benchmarking.ScriptAPI
11-
import qualified PlutusLedgerApi.V3 as PlutusV3
12-
13-
import Prelude hiding (pred, ($), (&&), (<), (==))
14-
1510
import qualified Data.ByteString.Short as SBS
16-
17-
import Language.Haskell.TH
18-
import Language.Haskell.TH.Syntax
19-
import PlutusTx
11+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
12+
import qualified PlutusLedgerApi.V3 as PlutusV3
13+
import qualified PlutusTx (compile)
2014
import PlutusTx.Builtins (unsafeDataAsI)
2115
import qualified PlutusTx.Builtins.Internal as BI (BuiltinList, head, snd, tail, unitval,
2216
unsafeDataAsConstr)
2317
import PlutusTx.Prelude as Plutus hiding (Semigroup (..), unless, (.), (<$>))
18+
import Prelude hiding (pred, ($), (&&), (<), (==))
2419

2520

2621
scriptName :: String

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/Ripemd160.hs‎

Lines changed: 7 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -5,22 +5,17 @@
55

66
module Cardano.Benchmarking.PlutusScripts.Ripemd160 (script) where
77

8-
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
9-
Script (..), toScriptInAnyLang)
10-
8+
import Cardano.Api (PlutusScript (..), PlutusScriptV3,
9+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
1110
import Cardano.Benchmarking.ScriptAPI
12-
import qualified PlutusLedgerApi.V3 as PlutusV3
13-
14-
import Prelude as Haskell (String, (.), (<$>))
15-
1611
import qualified Data.ByteString.Short as SBS
17-
18-
import Language.Haskell.TH
19-
import Language.Haskell.TH.Syntax
20-
import qualified PlutusTx
12+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
13+
import qualified PlutusLedgerApi.V3 as PlutusV3
14+
import qualified PlutusTx (compile)
2115
import qualified PlutusTx.Builtins.Internal as BI (BuiltinList, head, snd, tail, unitval,
2216
unsafeDataAsConstr)
2317
import PlutusTx.Prelude as Tx hiding (Semigroup (..), (.), (<$>))
18+
import Prelude as Haskell (String, (.), (<$>))
2419

2520

2621
scriptName :: Haskell.String
@@ -30,6 +25,7 @@ scriptName
3025
script :: PlutusBenchScript
3126
script = mkPlutusBenchScript scriptName (toScriptInAnyLang (PlutusScript PlutusScriptV3 scriptSerialized))
3227

28+
3329
{-# INLINABLE mkValidator #-}
3430
mkValidator :: BuiltinData -> BuiltinUnit
3531
mkValidator arg =

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

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -7,21 +7,16 @@
77

88
module Cardano.Benchmarking.PlutusScripts.SchnorrSecp256k1Loop (script) where
99

10-
import Cardano.Api (PlutusScript (..), PlutusScriptV2, PlutusScriptVersion (..),
11-
Script (..), toScriptInAnyLang)
12-
10+
import Cardano.Api (PlutusScript (..), PlutusScriptV2,
11+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
1312
import Cardano.Benchmarking.ScriptAPI
14-
import qualified PlutusLedgerApi.V2 as PlutusV2
15-
16-
import Prelude as Haskell (String, (.), (<$>))
17-
1813
import qualified Data.ByteString.Short as SBS
19-
20-
import Language.Haskell.TH
21-
import Language.Haskell.TH.Syntax
22-
import qualified PlutusTx
14+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
15+
import qualified PlutusLedgerApi.V2 as PlutusV2
16+
import qualified PlutusTx (compile)
2317
import qualified PlutusTx.Builtins as BI
2418
import PlutusTx.Prelude as P hiding (Semigroup (..), (.), (<$>))
19+
import Prelude as Haskell (String, (.), (<$>))
2520

2621

2722
scriptName :: Haskell.String

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/SupplementalDatum.hs‎

Lines changed: 8 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -4,23 +4,19 @@
44

55
module Cardano.Benchmarking.PlutusScripts.SupplementalDatum (script) where
66

7-
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
8-
Script (..), toScriptInAnyLang)
9-
7+
import Cardano.Api (PlutusScript (..), PlutusScriptV3,
8+
PlutusScriptVersion (..), Script (..), toScriptInAnyLang)
109
import Cardano.Benchmarking.ScriptAPI
10+
import qualified Data.ByteString.Short as SBS
11+
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (StringL), Loc (loc_module), qLocation)
1112
import qualified PlutusLedgerApi.V3 as V3
1213
import qualified PlutusLedgerApi.V3.Contexts as V3
13-
14-
import Prelude as Haskell (String, (.), (<$>))
15-
16-
import qualified Data.ByteString.Short as SBS
17-
18-
import Language.Haskell.TH
19-
import Language.Haskell.TH.Syntax
20-
import PlutusTx
14+
import qualified PlutusTx (compile)
2115
import qualified PlutusTx.Builtins as PlutusTx
2216
import PlutusTx.Prelude as Tx hiding (Semigroup (..), (.), (<$>))
2317
import qualified PlutusTx.Prelude as PlutusTx
18+
import Prelude as Haskell (String, (.), (<$>))
19+
2420

2521
scriptName :: Haskell.String
2622
scriptName
@@ -29,6 +25,7 @@ scriptName
2925
script :: PlutusBenchScript
3026
script = mkPlutusBenchScript scriptName (toScriptInAnyLang (PlutusScript PlutusScriptV3 scriptSerialized))
3127

28+
3229
-- | Write to disk with: cabal run plutus-scripts-bench -- print SupplementalDatum -o supplemental-datum.plutus
3330
{-# INLINABLE typedValidator #-}
3431
typedValidator :: V3.ScriptContext -> Bool

0 commit comments

Comments
 (0)