diff options
author | 2008-02-27 14:25:48 +0000 | |
---|---|---|
committer | 2008-02-27 14:25:48 +0000 | |
commit | f0777bd6a13c9035c250910c81377d966e93e57c (patch) | |
tree | 214f60a9528f7e3fbaec96392b292a61d95404b8 /tools/coqdoc/output.ml | |
parent | 7de4db13aee7d2d59125a7ac13ed073ec108c897 (diff) |
Amélioration de la gestion des chemins physiques (corrige au passage le bug #939
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10594 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/output.ml')
-rw-r--r-- | tools/coqdoc/output.ml | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/tools/coqdoc/output.ml b/tools/coqdoc/output.ml index 5a5f1e7bf..77b4eda8d 100644 --- a/tools/coqdoc/output.ml +++ b/tools/coqdoc/output.ml @@ -344,14 +344,15 @@ module Html = struct raw_ident s i*) - let ident_ref m fid s = match find_module m with - | Local -> - printf "<a class=\"idref\" href=\"%s.html#%s\">" m fid; raw_ident s; printf "</a>" - | Coqlib when !externals -> - let m = Filename.concat !coqlib m in - printf "<a class=\"idref\" href=\"%s.html#%s\">" m fid; raw_ident s; printf "</a>" - | Coqlib | Unknown -> - raw_ident s + let ident_ref m fid s = + match find_module m with + | Local -> + printf "<a class=\"idref\" href=\"%s.html#%s\">" m fid; raw_ident s; printf "</a>" + | Coqlib when !externals -> + let m = Filename.concat !coqlib m in + printf "<a class=\"idref\" href=\"%s.html#%s\">" m fid; raw_ident s; printf "</a>" + | Coqlib | Unknown -> + raw_ident s let ident s loc = if is_keyword s then begin |