X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_types.ml;h=1574e2bdb12e4249a82a421602194325dbc343ae;hb=ed207660b8a0fa34f1d34b9dbb41144c5be29e68;hp=ee13c6ec6944cb8c67bb6a10fe06f9be5bb09ac9;hpb=67460d22396d5fc3a5dffce07b2779e4b7960582;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_types.ml b/helm/ocaml/getter/http_getter_types.ml
index ee13c6ec6..1574e2bdb 100644
--- a/helm/ocaml/getter/http_getter_types.ml
+++ b/helm/ocaml/getter/http_getter_types.ml
@@ -32,9 +32,14 @@ exception Invalid_URI of string
 exception Invalid_URL of string
 exception Invalid_RDF_class of string
 exception Internal_error of string
+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 *)
 
-type encoding = Enc_normal | Enc_gzipped
-type answer_format = Fmt_text | Fmt_xml
+type encoding = [ `Normal | `Gzipped ]
+type answer_format = [ `Text | `Xml ]
 type ls_flag = No | Yes | Ann
 type ls_object =
   {