From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 6 Jul 2005 15:24:07 +0000 (+0000)
Subject: bugfix: leave ".theory" suffix in place for theory uris
X-Git-Tag: V_0_7_1~52
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7631f530b2a7133ad693d4c8e830806ab9a6b219;p=helm.git

bugfix: leave ".theory" suffix in place for theory uris
---

diff --git a/helm/ocaml/getter/http_getter.ml b/helm/ocaml/getter/http_getter.ml
index 795148b4b..dd4e483fa 100644
--- a/helm/ocaml/getter/http_getter.ml
+++ b/helm/ocaml/getter/http_getter.ml
@@ -246,7 +246,7 @@ let dumb_ls uri_prefix =
         else
           try
             let obj =
-              { uri = strip_suffix theory_suffix fname;
+              { uri = strip_suffix ~suffix:xml_suffix fname;
                 ann = false; types = No; body = No; proof_tree = No }
             in
             items := Ls_object obj :: !items