]> matita.cs.unibo.it Git - helm.git/commitdiff
fixed cictheory:/ bug (thanks Lionel for the patch)
authorStefano Zacchiroli <zack@upsilon.cc>
Fri, 17 Sep 2004 10:09:36 +0000 (10:09 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Fri, 17 Sep 2004 10:09:36 +0000 (10:09 +0000)
helm/ocaml/getter/http_getter_common.ml

index 4366417de179da32c02ea2a3c3c4e8794328b29f..15810b93c2b4b8fb535c187eda61ae6eed1785fb 100644 (file)
@@ -52,7 +52,7 @@ let rec uri_of_string = function
           in
           Rdf_uri (prefix, rest)
       | _ -> raise (Invalid_URI uri))
-  | uri when is_cic_uri uri -> Cic_uri (Cic (Pcre.replace ~pat:"^cic:" uri))
+  | uri when is_cic_obj_uri uri -> Cic_uri (Cic (Pcre.replace ~pat:"^cic:" uri))
   | uri when is_nuprl_uri uri -> Nuprl_uri (Pcre.replace ~pat:"^nuprl:" uri)
   | uri when is_theory_uri uri ->
       Cic_uri (Theory (Pcre.replace ~pat:"^theory:" uri))