rich-gray-grouse

SP1WBNM0A4ZVY1GVZMXDPMV831BF0BMHFJK9ZXNRW

Source Code

;; join-pool

(define-private (send-stx (recipient { to: principal, ustx: uint }))
  (stx-transfer? (get ustx recipient) tx-sender (get to recipient)))

(define-private (check-err (result (response bool uint))
                           (prior (response bool uint)))
  (match prior ok-value result
               err-value (err err-value)))

(define-public (join-pool (recipients (list 200 { to: principal, ustx: uint })))
  (fold check-err
    (map send-stx recipients)
    (ok true)))

Functions (3)

Function	Access	Args
send-stx	private	recipient: { to: principal, ustx: uint }
check-err	private	result: (response bool uint
join-pool	public	recipients: (list 200 { to: principal, ustx: uint }