Remove redundant parenthesis and run fourmolu

cardano-scaling · Sep 21, 2023 · d0f760c · d0f760c
1 parent ab2362a
commit d0f760c
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 12 deletions.
diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api.hs b/hydra-cardano-api/src/Hydra/Cardano/Api.hs
@@ -21,7 +21,7 @@ module Hydra.Cardano.Api (
   Era,
   LedgerEra,
   ledgerEraVersion,
-  LedgerProtocolParameters(..),
+  LedgerProtocolParameters (..),
 
   -- * Wrapped Types
   module Hydra.Cardano.Api,

diff --git a/hydra-node/src/Hydra/Ledger/Cardano/Evaluate.hs b/hydra-node/src/Hydra/Ledger/Cardano/Evaluate.hs
@@ -47,6 +47,7 @@ import Hydra.Cardano.Api (
   ExecutionUnits (..),
   LedgerEpochInfo (..),
   LedgerEra,
+  LedgerProtocolParameters (..),
   Lovelace,
   ProtocolParametersConversionError,
   ScriptExecutionError (ScriptErrorMissingScript),
@@ -63,7 +64,6 @@ import Hydra.Cardano.Api (
   toLedgerTx,
   toLedgerUTxO,
  )
-import Hydra.Cardano.Api (LedgerProtocolParameters (..))
 import Hydra.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod))
 import Hydra.Plutus.Extras (posixToUTCTime)
 import Ouroboros.Consensus.Cardano.Block (CardanoEras)
@@ -256,16 +256,17 @@ pparams =
     & ppMinFeeBL .~ Coin 155381
     & ppMaxTxExUnitsL .~ toLedgerExUnits maxTxExecutionUnits
     & ppMaxBlockExUnitsL
-      .~ ( toLedgerExUnits $
-            ExecutionUnits{executionMemory = 62_000_000, executionSteps = 40_000_000_000}
-         )
+      .~ toLedgerExUnits
+        ExecutionUnits
+          { executionMemory = 62_000_000
+          , executionSteps = 40_000_000_000
+          }
     & ppPricesL
-      .~ ( Prices
-            { prSteps = fromJust $ boundRational $ 721 % 10000000
-            , prMem = fromJust $ boundRational $ 577 % 10000
-            }
-         )
-    & ppProtocolVersionL .~ (ProtVer{pvMajor = natVersion @8, pvMinor = 0})
+      .~ Prices
+        { prSteps = fromJust $ boundRational $ 721 % 10000000
+        , prMem = fromJust $ boundRational $ 577 % 10000
+        }
+    & ppProtocolVersionL .~ ProtVer{pvMajor = natVersion @8, pvMinor = 0}
     & ppCostModelsL .~ emptyCostModels{costModelsValid = Map.fromList [(PlutusV2, plutusV2CostModel)]}
 
 maxTxSize :: Natural

diff --git a/hydra-test-utils/src/Test/Plutus/Validator.hs b/hydra-test-utils/src/Test/Plutus/Validator.hs
@@ -36,6 +36,7 @@ import Hydra.Cardano.Api (
   IsScriptWitnessInCtx (scriptWitnessInCtx),
   LedgerEpochInfo (LedgerEpochInfo),
   LedgerEra,
+  LedgerProtocolParameters (LedgerProtocolParameters),
   NetworkId (Testnet),
   NetworkMagic (NetworkMagic),
   PlutusScriptV2,
@@ -54,13 +55,13 @@ import Hydra.Cardano.Api (
   mkTxOutDatumHash,
   setTxInsCollateral,
   setTxProtocolParams,
+  toLedgerExUnits,
   toScriptData,
   pattern ReferenceScriptNone,
   pattern ScriptWitness,
   pattern TxInsCollateral,
   pattern TxOut,
  )
-import Hydra.Cardano.Api (LedgerProtocolParameters (LedgerProtocolParameters), toLedgerExUnits)
 import PlutusLedgerApi.Common (SerialisedScript)
 import qualified PlutusTx as Plutus
 import qualified Prelude