first moogle template checkin

[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 bf584f6ce4432fd5cf05aef12b6389a657dc8e4b..172cf18a963e3f2cea18aa586e9347b022f5b6d3 100644 (file)
--- a/helm/ocaml/getter/http_getter_types.ml
+++ b/helm/ocaml/getter/http_getter_types.ml
@@ -32,10 +32,12 @@ 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 *)
 
-type encoding = Enc_normal | Enc_gzipped
-type answer_format = Fmt_text | Fmt_xml
-type ls_flag = Yes | No | Ann
+type encoding = [ `Normal | `Gzipped ]
+type answer_format = [ `Text | `Xml ]
+type ls_flag = No | Yes | Ann
 type ls_object =
   {
     uri: string;