diff options
| author | herbelin | 2011-04-25 19:59:14 +0000 |
|---|---|---|
| committer | herbelin | 2011-04-25 19:59:14 +0000 |
| commit | 18c9de9f7ad965d514c9f77e36e6607418131f6f (patch) | |
| tree | 4e4a69e3176d3aa16116a61ec269dbe1abd41bce | |
| parent | 910a8b080f1ee548a7df24245d2d46e5c3a2f9cc (diff) | |
Fix for handling of -R "" in coqdoc (bug #2423).
(submitted by Tom Prince <tom.prince@ualberta.net>)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14063 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tools/coqdoc/main.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/coqdoc/main.ml b/tools/coqdoc/main.ml index 872903e6a5..98204a856d 100644 --- a/tools/coqdoc/main.ml +++ b/tools/coqdoc/main.ml @@ -134,7 +134,7 @@ let add_path dir name = (* turn A/B/C into A.B.C *) let rec name_of_path p name dirname suffix = - if p = dirname then String.concat "." (name::suffix) + if p = dirname then String.concat "." (if name = "" then suffix else (name::suffix)) else let subdir = Filename.dirname dirname in if subdir = dirname then raise Not_found |