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

preparing for agora-pro

Browse source
This commit is contained in:
Seungheon Oh 2022-10-18 20:50:05 -05:00
parent a098012d59
commit 16c0c15c58
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -247,9 +247,12 @@ stakePolicy =
-}
mkStakeValidator ::
StakeRedeemerImpl ->
ClosedTerm (PCurrencySymbol :--> PAssetClass :--> PAssetClass :--> PValidator)
mkStakeValidator impl =
plam $ \sstSymbol pstClass gstClass _datum redeemer ctx -> unTermCont $ do
Term s PCurrencySymbol ->
Term s PAssetClass ->
Term s PAssetClass ->
Term s PValidator
mkStakeValidator impl sstSymbol pstClass gstClass =
plam $ \_datum redeemer ctx -> unTermCont $ do
ctxF <- pletFieldsC @'["txInfo", "purpose"] ctx
txInfo <- pletC $ pfromData ctxF.txInfo
txInfoF <-
@ -602,6 +605,7 @@ mkStakeValidator impl =
-}
stakeValidator :: ClosedTerm (PCurrencySymbol :--> PAssetClass :--> PAssetClass :--> PValidator)
stakeValidator =
plam $
mkStakeValidator $
StakeRedeemerImpl
{ onDepositWithdraw = PStakeRedeemerHandlerTerm pdepositWithdraw