diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-12-28 13:17:55 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-12-28 13:17:55 +0000 |
| commit | 57fd501b0bfcdd8d2bc222a1a230d14c1f19b50c (patch) | |
| tree | d365358231b89362792f5e17b897f0d3111f6b90 | |
| parent | 5b9eed0849786c32ddadd0603c793d8b7f3681a1 (diff) | |
fix: bug preventing to get the code in a .mli
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6037 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | ocamldoc/Changes.txt | 1 | ||||
| -rw-r--r-- | ocamldoc/odoc_sig.ml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/ocamldoc/Changes.txt b/ocamldoc/Changes.txt index f87bf23ef..83f1cd737 100644 --- a/ocamldoc/Changes.txt +++ b/ocamldoc/Changes.txt @@ -1,4 +1,5 @@ Current : +OK - fix: bug preventing to get the code in a .mli OK - fix: missing spaces after carriage return in types (Odoc_misc.string_of_type_expr) OK - fixes: some bugs in the text parser ( ]} meaning end of code and somehting else instead of end of precode) diff --git a/ocamldoc/odoc_sig.ml b/ocamldoc/odoc_sig.ml index 70f55f367..aa6747a7c 100644 --- a/ocamldoc/odoc_sig.ml +++ b/ocamldoc/odoc_sig.ml @@ -557,7 +557,7 @@ module Analyser = ex_code = ( if !Odoc_args.keep_code then - Some (get_string_of_file pos_start_ele (pos_end_ele + pos_limit)) + Some (get_string_of_file pos_start_ele pos_end_ele) else None ) ; |