diff --git a/plutus-ledger-api/plutus-ledger-api.cabal b/plutus-ledger-api/plutus-ledger-api.cabal index b3149885892..91ab3859e07 100644 --- a/plutus-ledger-api/plutus-ledger-api.cabal +++ b/plutus-ledger-api/plutus-ledger-api.cabal @@ -125,7 +125,7 @@ library plutus-ledger-api-testlib build-depends: , barbies - , base >=4.9 && <5 + , base >=4.9 && <5 , base16-bytestring , base64-bytestring , bytestring @@ -134,7 +134,6 @@ library plutus-ledger-api-testlib , plutus-ledger-api ^>=1.29 , plutus-tx ^>=1.29 , prettyprinter - , PyF >=0.11.1.0 , QuickCheck , serialise , text diff --git a/plutus-ledger-api/testlib/PlutusLedgerApi/Test/EvaluationEvent.hs b/plutus-ledger-api/testlib/PlutusLedgerApi/Test/EvaluationEvent.hs index 0dda6787c41..9e714239c0b 100644 --- a/plutus-ledger-api/testlib/PlutusLedgerApi/Test/EvaluationEvent.hs +++ b/plutus-ledger-api/testlib/PlutusLedgerApi/Test/EvaluationEvent.hs @@ -1,7 +1,6 @@ {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE RecordWildCards #-} module PlutusLedgerApi.Test.EvaluationEvent ( @@ -30,7 +29,6 @@ import Data.List.NonEmpty (NonEmpty, toList) import Data.Text.Encoding qualified as Text import GHC.Generics (Generic) import Prettyprinter -import PyF (fmt) data ScriptEvaluationResult = ScriptEvaluationSuccess | ScriptEvaluationFailure @@ -152,16 +150,14 @@ data TestFailure renderTestFailure :: TestFailure -> String renderTestFailure = \case InvalidResult err -> display err - MissingCostParametersFor lang -> [fmt| - Missing cost parameters for {show lang}. - Report this as a bug against the script dumper in plutus-apps. - |] + MissingCostParametersFor lang -> + "Missing cost parameters for " ++ show lang ++ ".\n" + ++ "Report this as a bug against the script dumper in plutus-apps." renderTestFailures :: NonEmpty TestFailure -> String -renderTestFailures xs = [fmt| - Number of failed test cases: {length xs} - {unlines . fmap renderTestFailure $ toList xs} -|] +renderTestFailures testFailures = + "Number of failed test cases: " ++ show (length testFailures) ++ ".\n" + ++ unwords (map renderTestFailure (toList testFailures)) -- | Re-evaluate an on-chain script evaluation event. checkEvaluationEvent ::