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

replace all tcont $ pletFields with pletFieldsC

Browse source 
and all `tcont $ ptryFrom` with `ptryFromC`
This commit is contained in:
Hongrui Fang 2022-06-23 18:40:41 +08:00
parent f048f9f5c0
commit 2ab6c180b7
15 changed files with 128 additions and 136 deletions
Download patch file Download diff file Expand all files Collapse all files

7
agora/Agora/Governor.hs
View file

@ -45,7 +45,7 @@ import Plutarch.DataRepr (
PIsDataReprInstances (PIsDataReprInstances),
)
import Plutarch.Extra.Comonad (pextract)
import Plutarch.Extra.TermCont (pletC, pmatchC)
import Plutarch.Extra.TermCont (pletC, pletFieldsC, pmatchC)
import Plutarch.Lift (PConstantDecl, PUnsafeLiftDecl (..))
import Plutarch.SafeMoney (PDiscrete (..))
import PlutusLedgerApi.V1 (TxOutRef)
@ -231,9 +231,8 @@ governorDatumValid :: Term s (PGovernorDatum :--> PBool)
governorDatumValid = phoistAcyclic $
plam $ \datum -> unTermCont $ do
thresholds <-
tcont $
pletFields @'["execute", "create", "vote"] $
pfield @"proposalThresholds" # datum
pletFieldsC @'["execute", "create", "vote"] $
pfield @"proposalThresholds" # datum
PDiscrete execute' <- pmatchC thresholds.execute
PDiscrete draft' <- pmatchC thresholds.create