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

Bump LPE and update use sites.

Browse source
This commit is contained in:
adamczykm 2022-09-24 16:22:14 +02:00
parent 45260a3ea5
commit 3142ace0ff
19 changed files with 104 additions and 149 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -76,7 +76,7 @@ import Plutarch.Extra.AssetClass (
)
import Plutarch.Extra.Bind (PBind ((#>>=)))
import Plutarch.Extra.Field (pletAllC)
import Plutarch.Extra.List (pfirstJust)
import "liqwid-plutarch-extra" Plutarch.Extra.List (pfindJust)
import Plutarch.Extra.Maybe (
passertPJust,
pjust,
@ -89,7 +89,7 @@ import Plutarch.Extra.ScriptContext (
pfromOutputDatum,
pvalueSpent,
)
import Plutarch.Extra.TermCont (
import "liqwid-plutarch-extra" Plutarch.Extra.TermCont (
pguardC,
pletC,
pletFieldsC,
@ -324,7 +324,7 @@ mkStakeValidator
let -- Look for the output stake.
stakeOutput =
pfirstJust
pfindJust
# plam
( \output -> unTermCont $ do
outputF <-
@ -409,7 +409,7 @@ mkStakeValidator
(pjust # ref)
pnothing
proposalRef = pfirstJust # f # txInfoF.inputs
proposalRef = pfindJust # f # txInfoF.inputs
in pif pstMinted (pcon PNewProposal) $
pmaybe
# pcon PNoProposal