ocaml 3.09 transition

[helm.git] / helm / ocaml / getter / http_getter_types.ml

diff --git a/helm/ocaml/getter/http_getter_types.ml b/helm/ocaml/getter/http_getter_types.ml
index e8e31bd0fdff90f9e595d1647ea40643a1f906e4..172550652024f86dd1212b74879c37fc75d88102 100644 (file)
--- a/helm/ocaml/getter/http_getter_types.ml
+++ b/helm/ocaml/getter/http_getter_types.ml
@@ -36,6 +36,8 @@ exception Cache_failure of string
 exception Dtd_not_found of string (* dtd's url *)
 exception Key_already_in of string;;
 exception Key_not_found of string;;
+exception Http_client_error of string * string  (* url, error message *)
+exception Unsupported_scheme of string  (** unsupported url scheme *)
 
 type encoding = [ `Normal | `Gzipped ]
 type answer_format = [ `Text | `Xml ]