Fix reflection warnings

ring-clojure · Oct 17, 2023 · c511f4a · c511f4a
1 parent ef4e9c0
commit c511f4a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 9 deletions.
diff --git a/ring-jakarta-servlet/src/ring/util/jakarta/servlet.clj b/ring-jakarta-servlet/src/ring/util/jakarta/servlet.clj
@@ -75,9 +75,6 @@
     (if (nil? context)
       os
       (proxy [java.io.FilterOutputStream] [os]
-        (write
-          ([b]         (.write os b))
-          ([b off len] (.write os b off len)))
         (close []
           (.close os)
           (.complete context))))))

diff --git a/ring-jetty-adapter/src/ring/adapter/jetty.clj b/ring-jetty-adapter/src/ring/adapter/jetty.clj
@@ -135,7 +135,7 @@
 
 (defn- async-proxy-handler ^ServletHandler [handler timeout timeout-handler]
   (proxy [ServletHandler] []
-    (doHandle [_ ^Request base-request request response]
+    (doHandle [_ ^Request base-request ^HttpServletRequest request response]
       (let [^AsyncContext context (.startAsync request)]
         (.setTimeout context timeout)
         (when timeout-handler
@@ -228,7 +228,7 @@
       (.setHost (options :host))
       (.setIdleTimeout (options :max-idle-time 200000)))))
 
-(defn- create-threadpool ^ThreadPool [options]
+(defn- create-threadpool [options]
   (let [min-threads         (options :min-threads 8)
         max-threads         (options :max-threads 50)
         queue-max-capacity  (-> (options :max-queued-requests Integer/MAX_VALUE) (max 8))
@@ -247,7 +247,7 @@
 
 (defn- create-server ^Server [options]
   (let [pool   (or (:thread-pool options) (create-threadpool options))
-        server (Server. pool)]
+        server (Server. ^ThreadPool pool)]
     (when (:http? options true)
       (.addConnector server (http-connector server options)))
     (when (or (options :ssl?) (options :ssl-port))

diff --git a/ring-servlet/src/ring/util/servlet.clj b/ring-servlet/src/ring/util/servlet.clj
@@ -75,9 +75,6 @@
     (if (nil? context)
       os
       (proxy [java.io.FilterOutputStream] [os]
-        (write
-          ([b]         (.write os b))
-          ([b off len] (.write os b off len)))
         (close []
           (.close os)
           (.complete context))))))