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

forgot to remove some upstreamed utils for some reason :)

Browse source
This commit is contained in:
Hongrui Fang 2022-06-17 23:26:18 +08:00
parent 36a558bf30
commit dd2fae059f
4 changed files with 30 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -34,7 +34,6 @@ import Agora.Stake (
pgetStakeUsage,
)
import Agora.Utils (
findTxOutByTxOutRef,
getMintingPolicySymbol,
mustBePJust,
mustFindDatum',
@ -48,6 +47,7 @@ import Plutarch.Api.V1 (
)
import Plutarch.Api.V1.AssetClass (passetClass, passetClassValueOf)
import Plutarch.Api.V1.ScriptContext (
pfindTxInByTxOutRef,
pisTokenSpent,
ptxSignedBy,
pvalueSpent,
@ -163,7 +163,7 @@ proposalValidator proposal =
txInfo'
PSpending ((pfield @"_0" #) -> txOutRef) <- pmatchC $ pfromData ctx.purpose
PJust txOut <- pmatchC $ findTxOutByTxOutRef # txOutRef # txInfoF.inputs
PJust ((pfield @"resolved" #) -> txOut) <- pmatchC $ pfindTxInByTxOutRef # txOutRef # txInfoF.inputs
txOutF <- tcont $ pletFields @'["address", "value"] $ txOut
(pfromData -> proposalDatum, _) <-