some review fixes

IntersectMBO · May 23, 2022 · e562e0b · e562e0b
1 parent 950e0da
commit e562e0b
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 3 deletions.
diff --git a/plutus-ledger-constraints/plutus-ledger-constraints.cabal b/plutus-ledger-constraints/plutus-ledger-constraints.cabal
@@ -44,7 +44,6 @@ library
     build-depends:
         base >=4.9 && <5,
         aeson -any,
-        cardano-api -any,
         containers -any,
         lens -any,
         mtl -any,

diff --git a/plutus-pab-executables/plutus-pab-executables.cabal b/plutus-pab-executables/plutus-pab-executables.cabal
@@ -372,6 +372,7 @@ executable tx-inject
     default-language: Haskell2010
     build-depends:
         base >=4.9 && <5,
+        data-default -any,
         plutus-pab,
         containers -any,
         clock -any,

diff --git a/plutus-pab-executables/tx-inject/TxInject/RandomTx.hs b/plutus-pab-executables/tx-inject/TxInject/RandomTx.hs
@@ -10,6 +10,7 @@ module TxInject.RandomTx(
     ) where
 
 import Control.Monad.Primitive (PrimMonad, PrimState)
+import Data.Default (def)
 import Data.List.NonEmpty (NonEmpty (..))
 import Data.Map qualified as Map
 import Data.Maybe (fromMaybe)
@@ -23,6 +24,7 @@ import Ledger.Address qualified as Address
 import Ledger.CardanoWallet qualified as CW
 import Ledger.Generators qualified as Generators
 import Ledger.Index (UtxoIndex (..), ValidationCtx (..), runValidation, validateTransaction)
+import Ledger.Params (Params (pSlotConfig))
 import Ledger.Slot (Slot (..))
 import Ledger.Tx (Tx, TxOut (..))
 import Ledger.Tx qualified as Tx
@@ -88,7 +90,7 @@ generateTx gen slot (UtxoIndex utxo) = do
       Generators.genValidTransactionSpending sourceTxIns sourceAda
     slotCfg <- Gen.sample Generators.genSlotConfig
     let ((validationResult, _), _) =
-          runValidation (validateTransaction slot tx) (ValidationCtx (UtxoIndex utxo) slotCfg)
+          runValidation (validateTransaction slot tx) (ValidationCtx (UtxoIndex utxo) (def { pSlotConfig = slotCfg }))
     case validationResult of
       Nothing -> pure tx
       Just  _ -> generateTx gen slot (UtxoIndex utxo)

diff --git a/plutus-pab/src/Plutus/PAB/Run/Cli.hs b/plutus-pab/src/Plutus/PAB/Run/Cli.hs
@@ -111,7 +111,6 @@ runConfigCommand _ ConfigCommandArgs{ccaTrace, ccaPABConfig=Config{dbConfig}} Mi
 -- Run mock wallet service
 runConfigCommand _ ConfigCommandArgs{ccaTrace, ccaPABConfig = Config {nodeServerConfig, chainIndexConfig, walletServerConfig = LocalWalletConfig ws},ccaAvailability} MockWallet = do
     params <- liftIO $ Params.fromPABServerConfig nodeServerConfig
-    -- = Params { pSlotConfig = pscSlotConfig nodeServerConfig, pProtocolParams = protocolParameters, pNetworkId = networkId }
     liftIO $ WalletServer.main
         (toWalletLog ccaTrace)
         ws