make write-body! for String skip the Object dispatch

and as a result skip that nasty Satisfies call + io/writer based writing
mpenet · Nov 24, 2024 · 9d3113c · 9d3113c
1 parent d49e812
commit 9d3113c
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/deps.edn b/deps.edn
@@ -14,10 +14,10 @@
 
  :paths ["src" "resources"]
  :deps {org.clojure/clojure {:mvn/version "1.12.0-alpha1"}
-        io.helidon.http/helidon-http {:mvn/version "4.1.1"}
-        io.helidon.webserver/helidon-webserver {:mvn/version "4.1.1"}
-        io.helidon.webserver/helidon-webserver-websocket {:mvn/version "4.1.1"}
-        io.helidon.webserver/helidon-webserver-http2 {:mvn/version "4.1.1"}
+        io.helidon.http/helidon-http {:mvn/version "4.1.4"}
+        io.helidon.webserver/helidon-webserver {:mvn/version "4.1.4"}
+        io.helidon.webserver/helidon-webserver-websocket {:mvn/version "4.1.4"}
+        io.helidon.webserver/helidon-webserver-http2 {:mvn/version "4.1.4"}
         org.ring-clojure/ring-core-protocols {:mvn/version "1.12.0"}}
 
  :aliases

diff --git a/src/s_exp/hirundo/http/response.clj b/src/s_exp/hirundo/http/response.clj
@@ -30,6 +30,11 @@
                 is (FileInputStream. file)]
       (.transferTo is os)))
 
+  String
+  (write-body! [s ^ServerResponse server-response]
+    (.send ^ServerResponse server-response
+           ^String s))
+
   nil
   (write-body! [_ server-response]
     (.send ^ServerResponse server-response))