plutus-scripts-bench: Use TH-generated Plutus scripts & clean up hlint warnings.

Author: NadiaYvette

Diff for: bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts.hs

@@ -43,7 +43,7 @@ findPlutusScript ::
      String
   -> Maybe ScriptInAnyLang
 findPlutusScript s
-  = listToMaybe [psScript t | t <- getAllScripts, last (split (=='.') . pack $ (psName t)) == pack (takeBaseName s)]
+  = listToMaybe [psScript t | t <- getAllScripts, last (split (=='.') . pack $ psName t) == pack (takeBaseName s)]
 
 encodePlutusScript ::
      ScriptInAnyLang

Diff for: bench/plutus-scripts-bench/src/Cardano/Benchmarking/ScriptAPI.hs

@@ -1,8 +1,5 @@
 {-# LANGUAGE DataKinds #-}
-{-# LANGUAGE ImportQualifiedPost #-}
 {-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
 
 {-# OPTIONS_GHC -fno-warn-orphans #-}
@@ -26,4 +23,4 @@ data BenchScript
     }
 
 mkBenchScript :: String -> ScriptInAnyLang -> BenchScript
-mkBenchScript name body = BenchScript name body
+mkBenchScript = BenchScript

Diff for: bench/tx-generator/test/ApiTest.hs

@@ -156,7 +156,7 @@ checkPlutusLoop ::
 checkPlutusLoop (Just PlutusOn{..})
   = do
     script <- either (die . show) pure =<< readPlutusScript plutusScript
-    putStrLn $ "--> Read plutus script: " ++ ((id ||| id) plutusScript)
+    putStrLn $ "--> Read plutus script: " ++ (id ||| id) plutusScript
     protocolParameters <- readProtocolParametersOrDie
 
     let count = 1_792        -- arbitrary counter for a loop script; should respect mainnet limits

Diff for: nix/workbench/profile/prof1-variants.jq

@@ -276,7 +276,7 @@ def all_profile_variants:
    ({ generator:
       { plutus:
           { type:                       "LimitSaturationLoop"
-          , script: { "Right": "v1/loop.plutus" }
+          , script:                     { "Left": "Loop.hs" }
           , redeemer:
             { "int": 1000000 }
           }
@@ -288,7 +288,7 @@ def all_profile_variants:
    ({ generator:
       { plutus:
           { type:                      "LimitTxPerBlock_8"
-          , script: { "Right": "v2/ecdsa-secp256k1-loop.plutus" }
+          , script:                    { "Left": "EcdsaSecp256k1Loop.hs" }
           , redeemer:
             { constructor: 0
             , fields:
@@ -311,7 +311,7 @@ def all_profile_variants:
    ({ generator:
       { plutus:
           { type:                       "LimitTxPerBlock_8"
-          , script: { "Right": "v2/schnorr-secp256k1-loop.plutus" }
+          , script:                     { "Left": "SchnorrSecp256k1Loop.hs" }
           , redeemer:
             { constructor: 0
             , fields: