Merge pull request #1 from Stylitics/patch-ring-to-support-graal

patch ring to support graal
Stylitics · Jul 7, 2024 · 68bf105 · 68bf105
2 parents f92911c + b873e42
commit 68bf105
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/ring-core/project.clj b/ring-core/project.clj
@@ -1,4 +1,4 @@
-(defproject ring/ring-core "1.12.2"
+(defproject ring/ring-core "1.12.2-patched-graal"
   :description "Ring core libraries."
   :url "https://github.com/ring-clojure/ring"
   :scm {:dir ".."}

diff --git a/ring-core/src/ring/util/response.clj b/ring-core/src/ring/util/response.clj
@@ -297,6 +297,14 @@
        :content-length (connection-content-length conn)
        :last-modified  (connection-last-modified conn)})))
 
+(defmethod resource-data :resource
+  [^java.net.URL url]
+  ;; GraalVM resource scheme
+  (let [resource     (.openConnection url)]
+    {:content        (.getInputStream resource)
+     :content-length (connection-content-length resource)
+     :last-modified  (connection-last-modified resource)}))
+
 (defn url-response
   "Return a response for the supplied URL."
   {:added "1.2"}