auth-registry-v7
SPM3ZZ553NN61T0JPA3VA5SENGYMC977FQGQBRAMSource Code
(define-map verified-users
principal
bool
)
(define-public (add-user (user principal))
(begin
(asserts! (not (is-eq user tx-sender)) (err u1))
(map-set verified-users user true)
(ok true)
)
)
(define-read-only (is-verified (user principal))
(ok (default-to false (map-get? verified-users user)))
)
Functions (2)
| Function | Access | Args |
|---|---|---|
| add-user | public | user: principal |
| is-verified | read-only | user: principal |