diff options
| author | notin | 2006-04-26 14:32:35 +0000 |
|---|---|---|
| committer | notin | 2006-04-26 14:32:35 +0000 |
| commit | 09ab082e025c7f7db04df1100aa817615f091cc4 (patch) | |
| tree | 91087ef8c8768ebe439071afd0b20e04d5495175 | |
| parent | b2e0ec34cdd95017ce9ecec99b3431494b452d6c (diff) | |
Correction d'un bug dans coqdoc sur l'utilisation de l'option -o et la création du fichier de style
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8734 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 c9860c1882..3a08a578ec 100644 --- a/tools/coqdoc/main.ml +++ b/tools/coqdoc/main.ml @@ -239,7 +239,7 @@ let parse () = | ("-stdout" | "--stdout") :: rem -> out_to := StdOut; parse_rec rem | ("-o" | "--output") :: f :: rem -> - out_to := File f; parse_rec rem + out_to := File (Filename.basename f); output_dir := Filename.dirname f; parse_rec rem | ("-o" | "--output") :: [] -> usage () | ("-d" | "--directory") :: dir :: rem -> |