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

use utilities from LPE

Browse source
This commit is contained in:
SeungheonOh 2022-07-27 09:45:56 -05:00 • committed by Hongrui Fang
parent 662540e619
commit e2d873f1c5
9 changed files with 405 additions and 404 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Proposal/Scripts.hs
View file

@ -38,7 +38,6 @@ import Agora.Stake (
)
import Agora.Utils (
getMintingPolicySymbol,
mustBePJust,
mustFindDatum',
pltAsData,
)
@ -65,7 +64,7 @@ import Plutarch.Extra.Field (pletAllC)
import Plutarch.Extra.IsData (pmatchEnum)
import Plutarch.Extra.List (pisUniq', pmapMaybe, pmergeBy, pmsortBy)
import Plutarch.Extra.Map (plookup, pupdate)
import Plutarch.Extra.Maybe (pfromDJust, pfromJust, pisJust)
import Plutarch.Extra.Maybe (passertPJust, pfromDJust, pfromJust, pisJust)
import Plutarch.Extra.Record (mkRecordConstr, (.&), (.=))
import Plutarch.Extra.TermCont (
pguardC,
@ -204,7 +203,7 @@ proposalValidator proposal =
-- proposal inputs in one thansaction.
ownOutput <-
pletC $
mustBePJust # "Own output should be present" #$ pfind
passertPJust # "Own output should be present" #$ pfind
# plam
( \input -> unTermCont $ do
inputF <- pletAllC input