Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
+val heal_header_name: string -> unit
+val heal_header_value: string -> unit
val heal_header: string * string -> unit
+ (** given an input channel, reads from it a GET HTTP request and
+ @return a pair <path, query_params> where path is a string representing the
+ requested path and query_params is a list of pairs <name, value> (the GET
+ parameters) *)
val parse_request: in_channel -> string * (string * string) list
+ (** as above, but return an Http_types.request instance *)
+val parse_request': in_channel -> Http_types.request
+