settlement-engine
SP3WW7HZBWTXRQ14134RMJ7SH1Q83CVD9PVW5SSPWSource Code
;; Settlement Engine
(define-constant contract-owner tx-sender)
(define-map settlements uint { contract-id: uint, settled: bool, payout: uint })
(define-public (settle-contract (contract-id uint) (payout uint))
(begin
(asserts! (is-eq tx-sender contract-owner) (err u100))
(map-set settlements contract-id { contract-id: contract-id, settled: true, payout: payout })
(ok true)
)
)
Functions (1)
| Function | Access | Args |
|---|---|---|
| settle-contract | public | contract-id: uint, payout: uint |