fix week02 homework2

This commit is contained in:
Claudio Maradonna 2021-07-30 18:51:03 +02:00
parent 8dc7452532
commit a45c7866c1
Signed by untrusted user who does not match committer: claudiomaradonna
GPG key ID: 0CBA58694C5680D9

View file

@ -43,9 +43,9 @@ PlutusTx.unstableMakeIsData ''MyRedeemer
{-# INLINABLE mkValidator #-}
-- This should validate if and only if the two Booleans in the redeemer are equal!
mkValidator :: () -> MyRedeemer -> ScriptContext -> Bool
mkValidator _ (MyRedeemer r) _ = traceIfFalse "Flags dont match" $ r.flag1 == r.flag2
s
dat Typed
mkValidator _ (MyRedeemer r x) _ = traceIfFalse "Flags dont match" $ r == x
data Typed
instance Scripts.ValidatorTypes Typed where
type instance DatumType Typed = ()
type instance RedeemerType Typed = MyRedeemer