parse_form: add pase_form function to body modules

async/cohttp_async.ml

@@ -150,6 +150,9 @@ module Body = struct
     | `Pipe p -> `Pipe (Pipe.map p ~f)
 
   let as_pipe t ~f = `Pipe (t |> to_pipe |> f)
+
+  let to_form t =
+    to_string t >>| Uri.query_of_encoded
 end
 
 module Client = struct

async/cohttp_async.mli

@@ -34,6 +34,7 @@ module Body : sig
   val of_pipe : string Pipe.Reader.t -> t
   val map : t -> f:(string -> string) -> t
   val as_pipe : t -> f:(string Pipe.Reader.t -> string Pipe.Reader.t) -> t
+  val to_form : t -> (string * string list) list Deferred.t
 end
 
 module Client : sig

lib/body.ml

@@ -60,4 +60,7 @@ let map f t =
   | `String s -> `String (f s)
   | `Strings sl -> `Strings (List.map f sl)
 
+let to_form t =
+  Uri.query_of_encoded (to_string t)
+
 (* TODO: maybe add a functor here that uses IO.S *)

lib/s.mli

@@ -130,4 +130,5 @@ module type Body = sig
   val of_string_list : string list -> t
   val map : (string -> string) -> t -> t
   val transfer_encoding : t -> Transfer.encoding
+  val to_form : t -> (string * string list) list
 end

lwt-core/cohttp_lwt_body.ml

@@ -103,3 +103,6 @@ let map f t =
   match t with
   | #Body.t as t -> (Body.map f t :> t)
   | `Stream s -> `Stream (Lwt_stream.map f s)
+
+let to_form t =
+  to_string t >|= Uri.query_of_encoded

lwt-core/cohttp_lwt_body.mli

@@ -36,3 +36,4 @@ val length : t -> (int64 * t) Lwt.t
 val write_body : (string -> unit Lwt.t) -> t -> unit Lwt.t
 
 val drain_body : t -> unit Lwt.t
+val to_form : t -> (string * string list) list Lwt.t

setup.ml

@@ -1,7 +1,7 @@
 (* setup.ml generated for the first time by OASIS v0.4.5 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: 30301e2efbaf4c256d48471e2910193c) *)
+(* DO NOT EDIT (digest: f6c915ff5bdd9f1d40ce76bfa70d641f) *)
 (*
    Regenerated by OASIS v0.4.5
    Visit http://oasis.forge.ocamlcore.org for more information and
@@ -8890,7 +8890,7 @@ let setup_t =
        };
      oasis_fn = Some "_oasis";
      oasis_version = "0.4.5";
-     oasis_digest = Some "ܢ�E˵\003\130�\021�%C:&�";
+     oasis_digest = Some "\220\162\241E\203\181\003\130\208\021\190%C:&\178";
      oasis_exec = None;
      oasis_setup_args = [];
      setup_update = false