From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 7 Jan 2003 17:48:21 +0000 (+0000)
Subject: Resolve fixed: when an URI was well-formed but not found in a map, unresolved
X-Git-Tag: v0_3_99~77
X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=commitdiff_plain;h=21a69c0525553c5e197ca0499705afe904fd7260

Resolve fixed: when an URI was well-formed but not found in a map, unresolved
was not returned.
---

diff --git a/helm/http_getter/http_getter.ml b/helm/http_getter/http_getter.ml
index 982544bce..02877b012 100644
--- a/helm/http_getter/http_getter.ml
+++ b/helm/http_getter/http_getter.ml
@@ -88,7 +88,12 @@ let map_of_uri = function
   | uri when is_xsl_uri uri -> xsl_map
   | uri -> raise (Http_getter_unresolvable_URI uri)
 in
-let resolve uri = (map_of_uri uri)#resolve uri in
+let resolve uri =
+  try
+    (map_of_uri uri)#resolve uri
+  with Http_getter_map.Key_not_found _ ->
+    raise (Http_getter_unresolvable_URI uri)
+in
 let register uri =  (map_of_uri uri )#add uri in
 let return_all_foo_uris map doctype filter outchan =
   (** return all URIs contained in 'map' which satisfy predicate 'filter'; URIs