print status for safebooru request to stdout · e5ecd19676 - mariobot - GitLain

Bläddra i källkod

print status for safebooru request to stdout

master

Brent Gordon 4 år sedan

förälder

6a5eee6390

incheckning

e5ecd19676

1 ändrade filer med 1 tillägg och 0 borttagningar

Unifierad Vy

							
								+ 1
								
								- 0
							
bot.rktVisa fil
								
																@@ -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))