Eliminate a few runtime reflections

Author: DerGuteMoritz

src/aleph/http.clj

@@ -15,6 +15,8 @@
     [manifold.deferred :as d]
     [manifold.executor :as executor])
   (:import
+    (aleph.http.core
+      HeaderMap)
     (aleph.utils
       ConnectionTimeoutException
       PoolTimeoutException
@@ -500,7 +502,7 @@
 (defn get-all
   "Given a header map from an HTTP request or response, returns a collection of
    values associated with the key, rather than a comma-delimited string."
-  [header-m ^String k]
+  [^HeaderMap header-m ^String k]
   (let [raw-headers (.headers header-m)]
     (condp instance? raw-headers
       HttpHeaders (.getAll ^HttpHeaders raw-headers k)

src/aleph/http/client_middleware.clj

@@ -14,6 +14,8 @@
     [manifold.stream :as s]
     [potemkin :as p])
   (:import
+    (aleph.http.core
+      HeaderMap)
     (io.netty.buffer
       ByteBuf
       Unpooled)
@@ -746,7 +748,7 @@
 (defn ^:no-doc extract-cookies-from-response-headers
   ([headers]
    (extract-cookies-from-response-headers default-cookie-spec headers))
-  ([cookie-spec header-m]
+  ([cookie-spec ^HeaderMap header-m]
    (let [raw-headers (.headers header-m)]
      (->> (condp instance? raw-headers
             HttpHeaders (.getAll ^HttpHeaders raw-headers set-cookie-header-name)

src/aleph/http/server.clj

@@ -633,7 +633,7 @@
 
 (defn make-pipeline-builder
   "Returns a function that initializes a new server channel's pipeline."
-  [handler {:keys [ssl? ssl-context use-h2c?] :as opts}]
+  [handler {:keys [ssl? ^SslContext ssl-context use-h2c?] :as opts}]
   (fn pipeline-builder*
     [^ChannelPipeline pipeline]
     (log/trace "pipeline-builder*" pipeline opts)