From e5ecd19676c9958306ea7ef15dcf87ae8a90e28c Mon Sep 17 00:00:00 2001 From: Brent Gordon Date: Sat, 29 Feb 2020 13:35:57 -0500 Subject: [PATCH] print status for safebooru request to stdout --- bot.rkt | 1 + 1 file changed, 1 insertion(+) 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))