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

Implement governor mintint policy property tests.

Browse source
This commit is contained in:
adamczykm 2022-11-10 19:09:01 +01:00 • committed by Hongrui Fang
parent 740e1416fb
commit 463106b0cf
4 changed files with 204 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Governor.hs
View file

@ -42,6 +42,7 @@ import Agora.Proposal.Time (
import Agora.SafeMoney (GTTag)
import Data.Aeson qualified as Aeson
import Data.Tagged (Tagged)
import Optics.TH (makeFieldLabelsNoPrefix)
import Plutarch.DataRepr (
DerivePConstantViaData (DerivePConstantViaData),
PDataFields,
@ -56,7 +57,6 @@ import "liqwid-plutarch-extra" Plutarch.Extra.TermCont (pletFieldsC)
import Plutarch.Lift (PConstantDecl, PUnsafeLiftDecl (PLifted))
import PlutusLedgerApi.V1 (TxOutRef)
import PlutusTx qualified
import Optics.TH (makeFieldLabelsNoPrefix)
--------------------------------------------------------------------------------
@ -88,7 +88,6 @@ data GovernorDatum = GovernorDatum
-- | @since 0.2.1
makeFieldLabelsNoPrefix ''GovernorDatum
-- | @since 0.1.0
PlutusTx.makeIsDataIndexed ''GovernorDatum [('GovernorDatum, 0)]
@ -154,6 +153,8 @@ data Governor = Governor
Aeson.FromJSON
)
makeFieldLabelsNoPrefix ''Governor
--------------------------------------------------------------------------------
{- | Plutarch-level datum for the Governor script.