/
run-3.clar
37 lines (33 loc) · 933 Bytes
/
run-3.clar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(define-data-var executed bool false)
(define-constant updated-reserve-asset 'SP4SZE494VC2YC5JYG7AYFQ44F5Q4PYV7DVMDPBG.ststx-token)
(define-public (run-update)
(let (
(reserve-data (unwrap-panic (contract-call? .pool-reserve-data get-reserve-state-read updated-reserve-asset)))
)
(asserts! (not (var-get executed)) (err u10))
(print reserve-data)
(try!
(contract-call? .pool-borrow
set-reserve
updated-reserve-asset
(merge reserve-data { is-frozen: true })
)
)
(var-set executed true)
(ok true)
)
)
(define-read-only (can-execute)
(begin
(asserts! (not (var-get executed)) (err u10))
(ok (not (var-get executed)))
)
)
(define-read-only (get-update-values)
(let (
(reserve-data (unwrap-panic (contract-call? .pool-reserve-data get-reserve-state-read updated-reserve-asset)))
)
(merge reserve-data { is-frozen: true })
)
)
(run-update)