X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_types.ml;h=e8e31bd0fdff90f9e595d1647ea40643a1f906e4;hb=acf29bdbdcdc6ad8c2d9d27e8a47500981b605cd;hp=74ffe9fe1ee45eaae21f8e94fdc9998d693ef7aa;hpb=3af56c5a48f7cad33fd701e0061fe143e0e2a7c5;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_types.ml b/helm/ocaml/getter/http_getter_types.ml
index 74ffe9fe1..e8e31bd0f 100644
--- a/helm/ocaml/getter/http_getter_types.ml
+++ b/helm/ocaml/getter/http_getter_types.ml
@@ -34,9 +34,11 @@ 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;;
 
-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 =
   {