λgitsite

Fix localhost DNS resolution for Ollama

ober

75076cf91f8ddd9d25a89b82d2f27278ba98213d

diff --git a/lib/jcode/provider/provider.sls b/lib/jcode/provider/provider.sls
index 3e4e8eb..faa0de0 100644
--- a/lib/jcode/provider/provider.sls
+++ b/lib/jcode/provider/provider.sls
@@ -93,7 +93,8 @@
        (let ([parts (parse-url url)])
          (values
            (url-parts-scheme parts)
-           (url-parts-host parts)
+           (let ([h (url-parts-host parts)])
+             (if (equal? h "localhost") "127.0.0.1" h))
            (url-parts-port parts)
            (url-parts-path parts))))
   (def (build-http-request method path host headers body-str)
diff --git a/src/jcode/provider/provider.ss b/src/jcode/provider/provider.ss
index 1298c90..abae66d 100644
--- a/src/jcode/provider/provider.ss
+++ b/src/jcode/provider/provider.ss
@@ -98,7 +98,8 @@
 (def (parse-url-parts url)
   (let ((parts (parse-url url)))
     (values (url-parts-scheme parts)
-            (url-parts-host parts)
+            (let ((h (url-parts-host parts)))
+              (if (equal? h "localhost") "127.0.0.1" h))
             (url-parts-port parts)
             (url-parts-path parts))))