debug with fixed path

This commit is contained in:
2024-06-02 20:50:01 -04:00
parent 12aa577912
commit 4a73545ef2

View File

@@ -45,8 +45,8 @@
(define (http-req method path headers body) (define (http-req method path headers body)
(let ((fixed-path (combine-path path))) (let ((fixed-path (combine-path path)))
(when http-debug? (http-debug method path headers body)) (when http-debug? (http-debug method fixed-path headers body))
(let-values (((resp port) (http-get (combine-path path) #:headers headers (let-values (((resp port) (http-get fixed-path #:headers headers
#:streaming? #t #:streaming? #t
#:decode-body? #f #:decode-body? #f
#:body body))) #:body body)))