sleep for 30 minutes
This commit is contained in:
parent
8dbc852983
commit
d726491fa9
3
bot.rkt
3
bot.rkt
@ -72,8 +72,9 @@
|
|||||||
(displayln (read-json response))
|
(displayln (read-json response))
|
||||||
(displayln "Uploaded post!"))
|
(displayln "Uploaded post!"))
|
||||||
|
|
||||||
|
;run upload-attachment very 30 mins
|
||||||
(define (loop)
|
(define (loop)
|
||||||
(sleep 600)
|
(sleep 1740)
|
||||||
(upload-attachment)
|
(upload-attachment)
|
||||||
(loop))
|
(loop))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user