Make a single endpoint for deployment

src/lib/Wst/Offchain/Endpoints/DirectorySet.hs → src/lib/Wst/Offchain/Endpoints/Deployment.hs

@@ -1,8 +1,16 @@
 {-# LANGUAGE NamedFieldPuns #-}
-{-| Endpoints for managing and initializing the policy directory
+
+{-| Deploy the directory and global params
 -}
-module Wst.Offchain.Endpoints.DirectorySet(
-  initDirectoryTx
+module Wst.Offchain.Endpoints.Deployment(
+  DeploymentScripts(..),
+  deploymentScripts,
+  programmableLogicStakeCredential,
+  programmableLogicBaseCredential,
+  directoryNodePolicyId,
+  protocolParamsPolicyId,
+  globalParams,
+  deployTx
 ) where
 
 import Cardano.Api (PlutusScript, PlutusScriptV3)
@@ -67,11 +75,11 @@ globalParams scripts =
     , progLogicCred   = transCredential (programmableLogicBaseCredential scripts) -- its the script hash of the programmable base spending script
     }
 
-{-| Build a transaction that initialises the directory. Returns the
+{-| Build a transaction that deploys the directory and global params. Returns the
 transaction and the 'TxIn' that was selected for the one-shot NFTs.
 -}
-initDirectoryTx :: (MonadReader (BuildTxEnv era) m, MonadBlockchain era m, MonadError (BuildTxError era) m, C.IsBabbageBasedEra era, C.HasScriptLanguageInEra C.PlutusScriptV3 era) => m (C.Tx era, C.TxIn)
-initDirectoryTx = do
+deployTx :: (MonadReader (BuildTxEnv era) m, MonadBlockchain era m, MonadError (BuildTxError era) m, C.IsBabbageBasedEra era, C.HasScriptLanguageInEra C.PlutusScriptV3 era) => m (C.Tx era, C.TxIn)
+deployTx = do
   (txi, _) <- Env.selectOperatorOutput
   let scripts = deploymentScripts txi
   (tx, _) <- Env.balanceTxEnv $ do

src/test/Wst/Test/UnitTest.hs

@@ -9,30 +9,17 @@ import Convex.Class (MonadBlockchain (sendTx), MonadUtxoQuery)
 import Convex.MockChain.Utils (mockchainSucceeds)
 import Convex.Utils (failOnError)
 import Convex.Wallet.Operator (signTxOperator)
-import PlutusLedgerApi.V1.Credential (Credential (..))
-import SmartTokens.Types.ProtocolParams (ProgrammableLogicGlobalParams (..))
 import Test.Tasty (TestTree, testGroup)
 import Test.Tasty.HUnit (testCase)
-import Wst.Offchain.Endpoints.DirectorySet qualified as Endpoints
-import Wst.Offchain.Endpoints.ProtocolParams qualified as Endpoints
+import Wst.Offchain.Endpoints.Deployment qualified as Endpoints
 import Wst.Test.Env (admin, asAdmin)
 
 tests :: TestTree
 tests = testGroup "unit tests"
-  [ testCase "deploy protocol params" (mockchainSucceeds deployProtocolParams)
-  , testCase "deploy directory set" (mockchainSucceeds deployDirectorySet)
+  [ testCase "deploy directory and global params" (mockchainSucceeds deployDirectorySet)
   ]
 
-deployProtocolParams :: (MonadUtxoQuery m, MonadBlockchain C.ConwayEra m, MonadFail m) => m ()
-deployProtocolParams = failOnError $ asAdmin @C.ConwayEra $ do
-  let params =
-        ProgrammableLogicGlobalParams
-          { directoryNodeCS = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-          , progLogicCred   = ScriptCredential "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-          }
-  Endpoints.deployParamsTx params >>= void . sendTx . signTxOperator admin
-
 deployDirectorySet :: (MonadUtxoQuery m, MonadBlockchain C.ConwayEra m, MonadFail m) => m ()
 deployDirectorySet = failOnError $ asAdmin @C.ConwayEra $ do
-  (tx, _txI) <- Endpoints.initDirectoryTx
+  (tx, _txI) <- Endpoints.deployTx
   void $ sendTx $ signTxOperator admin tx

src/wst-poc.cabal

@@ -75,9 +75,8 @@ library
     Wst.Offchain.BuildTx.LinkedList
     Wst.Offchain.BuildTx.ProgrammableLogic
     Wst.Offchain.BuildTx.ProtocolParams
-    Wst.Offchain.Endpoints.DirectorySet
+    Wst.Offchain.Endpoints.Deployment
     Wst.Offchain.Endpoints.Env
-    Wst.Offchain.Endpoints.ProtocolParams
     Wst.Offchain.Scripts
     Wst.Onchain
     Wst.Server