debug with fixed path
This commit is contained in:
@@ -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)))
|
||||||
|
|||||||
Reference in New Issue
Block a user