You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
{{ message }}
This repository was archived by the owner on Dec 2, 2024. It is now read-only.
@@ -131,21 +131,7 @@ remainingFrom t@VestingTranche{vestingTrancheAmount} range =
{-# INLINABLE validate #-}
validate :: VestingParams -> () -> () -> V2.ScriptContext -> Bool
validate VestingParams{vestingTranche1, vestingTranche2, vestingOwner} () () ctx@V2.ScriptContext{scriptContextTxInfo=txInfo@TxInfo{txInfoValidRange}} =
- let
- remainingActual = V2.valueLockedBy txInfo (V2.ownHash ctx)
-
- remainingExpected =
- remainingFrom vestingTranche1 txInfoValidRange
- + remainingFrom vestingTranche2 txInfoValidRange
-
- in remainingActual `Value.geq` remainingExpected
- -- The policy encoded in this contract
- -- is "vestingOwner can do with the funds what they want" (as opposed
- -- to "the funds must be paid to vestingOwner"). This is enforcey by
- -- the following condition:
- && V2.txSignedBy txInfo (unPaymentPubKeyHash vestingOwner)
- -- That way the recipient of the funds can pay them to whatever address they
- -- please, potentially saving one transaction.
+ True
vestingScript :: VestingParams -> Validator
vestingScript = Scripts.validatorScript . typedValidator