overflow/mariobot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

print status for safebooru request to stdout

Browse Source
This commit is contained in:
Brent Gordon 2020-02-29 13:35:57 -05:00
parent 6a5eee6390
commit e5ecd19676
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bot.rkt
View File

@ -27,6 +27,7 @@
(define (search-safebooru) (define (search-safebooru)
(define-values (status header response)(http-sendrecv safebooru (string-append "/posts.json?limit=" limit "&page=" page "&tags="tags ) #:ssl? #t)) (define-values (status header response)(http-sendrecv safebooru (string-append "/posts.json?limit=" limit "&page=" page "&tags="tags ) #:ssl? #t))
(displayln status)
(define posts (read-json response)) (define posts (read-json response))
(list-ref posts pos)) (list-ref posts pos))