Hpack list is not reversed

Author: 314eter

lib/headers.ml

@@ -55,8 +55,6 @@ let to_rev_list t = List.map (fun { name; value; _ } -> name, value) t
 
 let to_list t = List.rev (to_rev_list t)
 
-let to_hpack_list t = List.rev t
-
 exception Local
 
 module CI = struct
@@ -278,7 +276,7 @@ let valid_headers ?(is_request = true) t =
               *   after a regular header field MUST be treated as malformed
               *   (Section 8.1.2.6). *)
              (is_pseudo && pseudo_did_end))
-        (to_hpack_list t)
+        t
     in
     not invalid
 

lib/serialize.ml

@@ -473,7 +473,7 @@ module Writer = struct
   let encode_headers hpack_encoder faraday headers =
     List.iter
       (fun header -> Hpack.Encoder.encode_header hpack_encoder faraday header)
-      (Headers.to_hpack_list headers)
+      headers
 
   let write_request_like_frame t hpack_encoder ~write_frame frame_info request =
     let { Request.meth; target; scheme; headers } = request in