ligo/src/bin_client/test/contracts/reveal_signed_preimage.tz

7 lines
354 B
Plaintext
Raw Normal View History

2018-06-17 03:01:36 +02:00
parameter (pair bytes signature) ;
storage (pair bytes key) ;
code { DUP ; UNPAIR ; CAR ; SHA256 ; DIP { CAR } ; ASSERT_CMPEQ ;
DUP ; UNPAIR ; SWAP ; DIP { UNPAIR ; SWAP } ; CDR ; CHECK_SIGNATURE ; ASSERT ;
CDR ; DUP ; CDR ; HASH_KEY ; IMPLICIT_ACCOUNT ;
BALANCE ; UNIT ; TRANSFER_TOKENS ;
NIL operation ; SWAP ; CONS ; PAIR }