Move comment about :aleph/ keys being internal to only cover the newl…

…y introduced ones

Might later be refined e.g. by namespacing them with :aleph.internal/ instead. See
#700 for future reconsideration.

src/aleph/http/core.clj

@@ -238,14 +238,14 @@
   :request-method (-> req .method .name str/lower-case keyword)
   :body body
   :scheme (if ssl? :https :http)
-  :aleph/keep-alive? (HttpUtil/isKeepAlive req)
   :server-name (netty/channel-server-name ch)
   :server-port (netty/channel-server-port ch)
   :remote-addr (netty/channel-remote-address ch)
   :protocol "HTTP/1.1"
-  ;; These keys are internal to Aleph and should not be relied on
-  :aleph/channel ch
-  :aleph/request-arrived request-arrived)
+  :aleph/keep-alive? (HttpUtil/isKeepAlive req)
+  :aleph/request-arrived request-arrived
+  ;; The following keys are internal to Aleph and should not be relied on
+  :aleph/channel ch)
 
 (p/def-derived-map NettyResponse [^HttpResponse rsp destroy-conn? body]
   :status (-> rsp .status .code)

src/aleph/http/http2.clj

@@ -822,12 +822,13 @@
 
      :protocol              "HTTP/2.0"
 
-     ;; These keys are internal to Aleph and should not be relied on
+     :aleph/keep-alive?     true                            ; not applicable to HTTP/2, but here for compatibility
+     :aleph/request-arrived (System/nanoTime)
+
+     ;; The following keys are internal to Aleph and should not be relied on
      :aleph/channel         ch
      :aleph/writable?       writable?
-     :aleph/h2-exception    h2-exception
-     :aleph/keep-alive?     true                            ; not applicable to HTTP/2, but here for compatibility
-     :aleph/request-arrived (System/nanoTime)}))
+     :aleph/h2-exception    h2-exception}))
 
 (defn- validate-netty-req-headers
   "Netty is not currently checking for missing pseudo-headers, so we do it here."