From 4a73545ef21c7aa949f5952d2f4d6f6b1db725c9 Mon Sep 17 00:00:00 2001 From: Adam Mohammed Date: Sun, 2 Jun 2024 20:50:01 -0400 Subject: [PATCH] debug with fixed path --- metal-sdk.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/metal-sdk.scm b/metal-sdk.scm index 90f51d6..2249987 100755 --- a/metal-sdk.scm +++ b/metal-sdk.scm @@ -45,8 +45,8 @@ (define (http-req method path headers body) (let ((fixed-path (combine-path path))) - (when http-debug? (http-debug method path headers body)) - (let-values (((resp port) (http-get (combine-path path) #:headers headers + (when http-debug? (http-debug method fixed-path headers body)) + (let-values (((resp port) (http-get fixed-path #:headers headers #:streaming? #t #:decode-body? #f #:body body)))