[PATCH] Remove #:streaming? #t from HTTP requests.

[jgart <jgart@dismail.de>]

The #:streaming? #t option bypasses Guile's automatic content-encoding
decompression and chunked transfer decoding.  This caused json->scm to
receive raw gzip-compressed bytes or trailing chunk framing data,
resulting in a json-invalid exception.

Without #:streaming? #t, http-request returns a clean bytevector that
we decode to a UTF-8 string and parse with json-string->scm.

The accept-encoding: identity workaround in openai-models is no longer
needed since Guile now handles gzip decompression automatically.
---
 kaagum/openai.scm | 5 +++--
 kaagum/web.scm    | 9 +++------
 2 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/kaagum/openai.scm b/kaagum/openai.scm
index 436a755..3334f3e 100644
--- a/kaagum/openai.scm
+++ b/kaagum/openai.scm
@@ -65,5 +65,6 @@ in @code{openai-query}."
                       (focus (key-ref "context_length") tree))))
        (vector->list (focus (key-ref "data")
                             (json-get (uri-join base-uri "/v1/models")
-                                      #:headers `((authorization
-                                                   . ,(string-append "Bearer " api-key))))))))
+                                      #:headers 
+                                      `((authorization
+                                        . ,(string-append "Bearer " api-key))))))))
diff --git a/kaagum/web.scm b/kaagum/web.scm
index ce29bdd..3454b4b 100644
--- a/kaagum/web.scm
+++ b/kaagum/web.scm
@@ -23,6 +23,7 @@
   #:use-module (web http)
   #:use-module (web response)
   #:use-module (json)
+  #:use-module (rnrs bytevectors)
   #:export (uri-join
             json-request
             json-get
@@ -44,14 +45,10 @@ additional @var{headers}. Return JSON response."
                 (http-request url
                               #:method method
                               #:headers headers
-                              #:body body
-                              #:streaming? #t)))
-    ;; Guile does not consider application/json responses as textual, and does
-    ;; not automatically set the port encoding to UTF-8.
-    (set-port-encoding! body "UTF-8")
+                              #:body body)))
     (case (quotient (response-code response)
                     100)
-      ((2) (json->scm body))
+      ((2) (json-string->scm (utf8->string body)))
       ((4)
        (raise-exception
         (condition (make-violation)
-- 
2.55.0