key->application-protocol-name -> ->application-protocol-name

Author: DerGuteMoritz

src/aleph/http/common.clj

@@ -124,11 +124,11 @@
 
 (def supported-http-versions #{:http1 :http2})
 (def supported-http-protocol-names (into #{}
-                                         (map netty/key->application-protocol-name)
+                                         (map netty/->application-protocol-name)
                                          supported-http-versions))
 
 (defn- assert-consistent-alpn-config! [alpn-protocols desired-http-versions]
-  (let [desired-http-protocols (map netty/key->application-protocol-name desired-http-versions)
+  (let [desired-http-protocols (map netty/->application-protocol-name desired-http-versions)
         alpn-http-protocols (filter supported-http-protocol-names alpn-protocols)]
     (when-not (= desired-http-protocols alpn-http-protocols)
       (let [emsg (if-let [missing-http-protocols (seq (remove (set alpn-http-protocols) desired-http-protocols))]

src/aleph/netty.clj

@@ -900,7 +900,7 @@
     :openssl SslProvider/OPENSSL
     :openssl-refcnt SslProvider/OPENSSL_REFCNT))
 
-(def key->application-protocol-name
+(def ->application-protocol-name
   {:http1 ApplicationProtocolNames/HTTP_1_1
    :http2 ApplicationProtocolNames/HTTP_2})