claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-11-14 02:42:35 +01:00
Code Issues Projects Releases Packages Wiki Activity

fix week02 homework2

Browse source
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
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
code/week02/src/Week02/Homework2.hs
View file

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