print status for safebooru request to stdout

2020-02-29 13:35:57 -05:00 · 2020-02-29 13:35:57 -05:00 · e5ecd19676
commit e5ecd19676
parent 6a5eee6390
1 changed files with 1 additions and 0 deletions
--- 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))