Referenced contracts
x
59
{ parameter (or (lambda %lambda unit (list operation)) (option %update_admin address)) ; storage (pair (pair %admin (address %current) (option %pending address)) (address %whitelist_contract)) ; code { PUSH string "SENDER_NOT_ADMIN" ; SWAP ; UNPAIR ; IF_LEFT { DUP 2 ; CAR ; CAR ; SENDER ; COMPARE ; NEQ ; IF { DIG 2 ; FAILWITH } { DIG 2 ; DROP } ; SWAP ; UNIT ; DIG 2 ; SWAP ; EXEC ; PAIR } { DUP 2 ; CDR ; NIL address ; SENDER ; CONS ; VIEW "are_whitelisted" bool ; IF_NONE { PUSH string "CALL_ARE_WHITELISED_VIEW_FAILED" ; FAILWITH } {} ; IF { DUP 2 ; CAR ; SWAP ; IF_NONE { DIG 2 ; DROP ; CDR ; IF_NONE { PUSH string "NO_PENDING_ADMIN" ; FAILWITH } { DUP ; SENDER ; COMPARE ; NEQ ; IF { DROP ; PUSH string "NOT_PENDING_ADMIN" ; FAILWITH } { NONE address ; SWAP ; PAIR } } } { DUP 2 ; CAR ; SENDER ; COMPARE ; NEQ ; IF { DIG 3 ; FAILWITH } { DIG 3 ; DROP } ; SOME ; UPDATE 2 } ; NIL operation ; DUG 2 ; UPDATE 1 ; SWAP ; PAIR } { DROP 3 ; PUSH string "ADDRESS_NOT_WHITELISTED" ; FAILWITH } } } ; view "admin" unit address { CDR ; CAR ; CAR } }Constant Info
Address
expru7r1VJh854srjEcbuMZuiASA
Timestamp
8 Nov'22 13:49
Level
1468119