Discard encoding with priority 0 (#3)

This fixes parsing headers such as "identity;q=1, *;q=0"
tmattio · Nov 8, 2024 · 0a2c423 · 0a2c423
1 parent 0085ff4
commit 0a2c423
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/dream_encoding.ml b/lib/dream_encoding.ml
@@ -127,7 +127,9 @@ let accepted_encodings_with_weights request =
 let accepted_encodings request =
   match accepted_encodings_with_weights request with
   | None -> None
-  | Some encodings -> Some (List.map (fun (a, _) -> a) encodings)
+  | Some encodings ->
+      Some
+        (List.filter_map (function _, 0 -> None | a, _ -> Some a) encodings)
 
 let preferred_content_encoding request =
   match accepted_encodings request with