Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

fix haddock errors

Browse source
This commit is contained in:
Emily Martins 2022-04-26 21:07:02 +02:00
parent 82ce3ab717
commit e201351249
8 changed files with 47 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

13
agora/Agora/Stake/Scripts.hs
View file

@ -54,15 +54,16 @@ import Prelude hiding (Num (..))
=== For minting:
- Check that exactly one state thread is minted
- Check that an output exists with a state thread and a valid datum
- Check that no state thread is an input
- assert @'TokenName' == 'ValidatorHash'@ of the script that we pay to
- Check that exactly one state thread is minted.
- Check that an output exists with a state thread and a valid datum.
- Check that no state thread is an input.
- assert @'Plutus.V1.Ledger.Api.TokenName' == 'Plutus.V1.Ledger.Api.ValidatorHash'@
of the script that we pay to.
=== For burning:
- Check that exactly one state thread is burned
- Check that datum at state thread is valid and not locked
- Check that exactly one state thread is burned.
- Check that datum at state thread is valid and not locked.
-}
stakePolicy :: Tagged GTTag AssetClass -> ClosedTerm PMintingPolicy
stakePolicy gtClassRef =