diff --git a/cardano-dex-contracts-onchain/ErgoDex/PContracts/PVestingWithPeriod.hs b/cardano-dex-contracts-onchain/ErgoDex/PContracts/PVestingWithPeriod.hs index e4bc017..86975ce 100644 --- a/cardano-dex-contracts-onchain/ErgoDex/PContracts/PVestingWithPeriod.hs +++ b/cardano-dex-contracts-onchain/ErgoDex/PContracts/PVestingWithPeriod.hs @@ -104,7 +104,7 @@ vestingWithPeriodValidatorT = plam $ \conf' redeemer' ctx' -> unTermCont $ do tlet . ptraceShowId $ validTime tlet . ptraceShowId $ validSignature tlet . ptraceShowId $ correctReward - pure $ validTime + pure $ validTime #&& validSignature #&& correctReward @@ -116,9 +116,5 @@ checkRewardCorrectness = selfOutput = phead # selfOutputsList selfValue = pfield @"value" # selfOutput correctOutQty = totalVested - (periodId * periodVested) - tlet . ptraceShowId $ correctOutQty - let realOutQty = assetClassValueOf # selfValue # vestingAC - tlet . ptraceShowId $ vestingAC - tlet . ptraceShowId $ realOutQty pure $ realOutQty #== correctOutQty \ No newline at end of file