sage-map-16

;; agate-bridge
(define-map recordss principal
  { username: (string-ascii 32), bio: (string-ascii 128), verified: bool, joined: uint })

(define-public (create-profile (username (string-ascii 32)) (bio (string-ascii 128)))
  (if (is-none (map-get? recordss tx-sender))
    (begin
      (map-set recordss tx-sender
        { username: username, bio: bio, verified: false, joined: block-height })
      (ok true))
    (err u1)))

(define-public (update-bio (bio (string-ascii 128)))
  (match (map-get? recordss tx-sender)
    profile
    (begin
      (map-set recordss tx-sender (merge profile { bio: bio }))
      (ok true))
    (err u2)))

(define-read-only (get-profile (who principal))
  (ok (map-get? recordss who)))