diff --git a/bot.rkt b/bot.rkt index 6119997..0a99caf 100644 --- a/bot.rkt +++ b/bot.rkt @@ -27,6 +27,7 @@ (define (search-safebooru) (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)) (list-ref posts pos))