X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_types.ml;h=172cf18a963e3f2cea18aa586e9347b022f5b6d3;hb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1;hp=1d8f7fcb755e09dca3e011ba25848af6e01a9e43;hpb=c19ffb699f8f4681f0c7d9f59fae96f2023cd058;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_types.ml b/helm/ocaml/getter/http_getter_types.ml
index 1d8f7fcb7..172cf18a9 100644
--- a/helm/ocaml/getter/http_getter_types.ml
+++ b/helm/ocaml/getter/http_getter_types.ml
@@ -33,9 +33,10 @@ 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 encoding = [ `Normal | `Gzipped ]
+type answer_format = [ `Text | `Xml ]
 type ls_flag = No | Yes | Ann
 type ls_object =
   {