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/Stake/Scripts.hs
View file

@ -16,7 +16,6 @@ import Agora.Stake (
pstakeLocked,
)
import Agora.Utils (
mustBePJust,
mustFindDatum',
pdjust,
pdnothing,
@ -44,7 +43,7 @@ import Plutarch.Api.V1.ScriptContext (pfindTxInByTxOutRef, ptxSignedBy, pvalueSp
import "liqwid-plutarch-extra" Plutarch.Api.V1.Value (pgeqByClass', pgeqBySymbol, psymbolValueOf)
import Plutarch.Extra.Field (pletAllC)
import Plutarch.Extra.List (pmapMaybe, pmsortBy)
import Plutarch.Extra.Maybe (pfromDJust)
import Plutarch.Extra.Maybe (passertPJust, pfromDJust)
import Plutarch.Extra.Record (mkRecordConstr, (.&), (.=))
import Plutarch.Extra.TermCont (pguardC, pletC, pletFieldsC, pmatchC, ptryFromC)
import Plutarch.Internal (punsafeCoerce)
@ -126,7 +125,7 @@ stakePolicy gtClassRef =
pguardC "A UTXO must exist with the correct output" $
unTermCont $ do
let scriptOutputWithStakeST =
mustBePJust
passertPJust
# "Output to script not found"
#$ pfind
# plam