add `QUERY method

Author: c-cube

src/core/meth.ml

@@ -1,6 +1,6 @@
 open Common_
 
-type t = [ `GET | `PUT | `POST | `HEAD | `DELETE | `OPTIONS ]
+type t = [ `GET | `PUT | `POST | `HEAD | `DELETE | `OPTIONS | `QUERY ]
 
 let to_string = function
   | `GET -> "GET"
@@ -9,6 +9,7 @@ let to_string = function
   | `POST -> "POST"
   | `DELETE -> "DELETE"
   | `OPTIONS -> "OPTIONS"
+  | `QUERY -> "QUERY"
 
 let pp out s = Format.pp_print_string out (to_string s)
 
@@ -19,4 +20,5 @@ let of_string = function
   | "HEAD" -> `HEAD
   | "DELETE" -> `DELETE
   | "OPTIONS" -> `OPTIONS
+  | "QUERY" -> `QUERY
   | s -> bad_reqf 400 "unknown method %S" s

src/core/meth.mli

@@ -1,9 +1,13 @@
 (** HTTP Methods *)
 
-type t = [ `GET | `PUT | `POST | `HEAD | `DELETE | `OPTIONS ]
+type t = [ `GET | `PUT | `POST | `HEAD | `DELETE | `OPTIONS | `QUERY ]
 (** A HTTP method. For now we only handle a subset of these.
 
-    See https://tools.ietf.org/html/rfc7231#section-4 *)
+    See https://tools.ietf.org/html/rfc7231#section-4 
+
+    [`QUERY] added @since NEXT_RELEASE , see https://www.rfc-editor.org/info/rfc10008/
+  and https://blainsmith.com/articles/rfc-10008-http-query-method/
+    *)
 
 val pp : Format.formatter -> t -> unit
 val to_string : t -> string