Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
PLT-47 Add tutorial for using tx constraint API (#529)
- Loading branch information
1 parent
5c46471
commit ca0fb35
Showing
4 changed files
with
127 additions
and
3 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,90 @@ | ||
{-# LANGUAGE DataKinds #-} | ||
{-# LANGUAGE DeriveAnyClass #-} | ||
{-# LANGUAGE DeriveGeneric #-} | ||
{-# LANGUAGE DerivingStrategies #-} | ||
{-# LANGUAGE GeneralizedNewtypeDeriving #-} | ||
{-# LANGUAGE MultiParamTypeClasses #-} | ||
{-# LANGUAGE NamedFieldPuns #-} | ||
{-# LANGUAGE NoImplicitPrelude #-} | ||
{-# LANGUAGE ScopedTypeVariables #-} | ||
{-# LANGUAGE TemplateHaskell #-} | ||
{-# LANGUAGE TypeApplications #-} | ||
{-# LANGUAGE TypeFamilies #-} | ||
{-# LANGUAGE TypeOperators #-} | ||
{-# OPTIONS_GHC -fno-ignore-interface-pragmas #-} | ||
module BasicAppConstraints where | ||
|
||
-- BLOCK0 | ||
|
||
import BasicApps (SplitData (SplitData, amount, recipient1, recipient2), SplitSchema, mkSplitData) | ||
import Ledger (Ada, ChainIndexTxOut, PaymentPubKeyHash, ScriptContext, TxOutRef) | ||
import Ledger.Ada qualified as Ada | ||
import Ledger.Constraints (MkTxError, TxConstraints, UnbalancedTx) | ||
import Ledger.Constraints qualified as Constraints | ||
import Ledger.Typed.Scripts qualified as Scripts | ||
import Plutus.Contract (Contract, Promise, collectFromScript, endpoint, submitTxConstraintsSpending, utxosAt) | ||
|
||
import Control.Monad (void) | ||
import Data.Either (Either) | ||
import Data.Foldable (foldMap) | ||
import Data.Map (Map) | ||
import Data.Map qualified as Map | ||
import Data.Text qualified as T | ||
import GHC.Generics (Generic) | ||
import PlutusTx qualified | ||
import PlutusTx.Prelude (Bool, mappend, ($), (-), (.)) | ||
import Prelude (Show, flip, (<>)) | ||
|
||
-- BLOCK1 | ||
|
||
-- | Create constraints that will be used to spend a locked transaction output | ||
-- from the script address. | ||
-- | ||
-- These constraints will be used in the validation script as well as in the | ||
-- transaction creation step. | ||
{-# INLINABLE splitDataConstraints #-} | ||
splitDataConstraints :: SplitData -> TxConstraints () SplitData | ||
splitDataConstraints SplitData{recipient1, recipient2, amount} = | ||
Constraints.mustPayToPubKey recipient1 (Ada.toValue half) | ||
`mappend` Constraints.mustPayToPubKey recipient2 (Ada.toValue $ amount - half) | ||
where | ||
half = Ada.divide amount 2 | ||
|
||
-- BLOCK2 | ||
|
||
-- | The validation logic is generated with `checkScriptContext` based on the set | ||
-- of constraints. | ||
{-# INLINABLE validateSplit #-} | ||
validateSplit :: SplitData -> () -> ScriptContext -> Bool | ||
validateSplit splitData _ = | ||
Constraints.checkScriptContext (splitDataConstraints splitData) | ||
|
||
-- BLOCK3 | ||
|
||
splitValidator :: Scripts.TypedValidator Split | ||
splitValidator = Scripts.mkTypedValidator @Split | ||
$$(PlutusTx.compile [|| validateSplit ||]) | ||
$$(PlutusTx.compile [|| wrap ||]) where | ||
wrap = Scripts.mkUntypedValidator @SplitData @() | ||
|
||
-- BLOCK4 | ||
|
||
unlock :: Promise () SplitSchema T.Text () | ||
unlock = endpoint @"unlock" (unlockFunds . mkSplitData) | ||
|
||
-- | Creates a transaction which spends all script outputs from a script address, | ||
-- sums the value of the scripts outputs and splits it between two payment keys. | ||
unlockFunds :: SplitData -> Contract () SplitSchema T.Text () | ||
unlockFunds splitData = do | ||
-- Get the address of the Split validator | ||
let contractAddress = Scripts.validatorAddress splitValidator | ||
-- Get all utxos that are locked by the Split validator | ||
utxos <- utxosAt contractAddress | ||
-- Generate constraints which will spend all utxos locked by the Split | ||
-- validator and split the value evenly between the two payment keys. | ||
let constraints = collectFromScript utxos () | ||
<> splitDataConstraints splitData | ||
-- Create, Balance and submit the transaction | ||
void $ submitTxConstraintsSpending splitValidator utxos constraints | ||
|
||
-- BLOCK5 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,33 @@ | ||
.. highlight:: haskell | ||
.. _basic_apps_constraints_tutorial: | ||
|
||
Extending the basic Plutus app with the constraints API | ||
======================================================= | ||
|
||
The previous tutorial (see :ref:`basic_apps_tutorial`) showed you how to write a Plutus app that locks some Ada in a script output and splits them evenly between two recipients. | ||
In this tutorial, we will reuse the same example, but we will use instead the constraints API which will be used to generate the on-chain and off-chain part of the Plutus app. | ||
This will allow your application to create a transaction which is *mostly* consistent with the validator function. | ||
|
||
Given a `SplitData`, let's start by defining a function which generates the constraints to unlock funds locked by the split validator. | ||
|
||
.. literalinclude:: BasicAppConstraints.hs | ||
:start-after: BLOCK1 | ||
:end-before: BLOCK2 | ||
|
||
With the constraints, let's start by defining the validator function. | ||
|
||
.. literalinclude:: BasicAppConstraints.hs | ||
:start-after: BLOCK2 | ||
:end-before: BLOCK3 | ||
|
||
As you can see, it's much simpler than the original version. | ||
|
||
Now to the off-chain part. | ||
The `lock` endpoint doesn't change. | ||
However, we can change the `unlock` endpoint to use the constraints we defined above. | ||
|
||
.. literalinclude:: BasicAppConstraints.hs | ||
:start-after: BLOCK4 | ||
:end-before: BLOCK5 | ||
|
||
That's it! The rest of the contract is the same as the previous tutorial. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters