X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_types.ml;h=fb0c30e83e18a54a9c9987a491906e7a21eda9e1;hb=771ee8b9d122fa963881c876e86f90531bb7434f;hp=172cf18a963e3f2cea18aa586e9347b022f5b6d3;hpb=d8738e52af861cbdda5268671b30183b99d51c54;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_types.ml b/helm/ocaml/getter/http_getter_types.ml
index 172cf18a9..fb0c30e83 100644
--- a/helm/ocaml/getter/http_getter_types.ml
+++ b/helm/ocaml/getter/http_getter_types.ml
@@ -26,6 +26,8 @@
  *  http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 exception Bad_request of string
 exception Unresolvable_URI of string
 exception Invalid_URI of string
@@ -34,6 +36,10 @@ 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 *)
+exception Unsupported_scheme of string  (** unsupported url scheme *)
 
 type encoding = [ `Normal | `Gzipped ]
 type answer_format = [ `Text | `Xml ]
@@ -62,3 +68,5 @@ type uri =
 
 module StringSet = Set.Make (String)
 
+type prefix_attr = [ `Read_only | `Legacy ]
+