diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-07-04 11:39:50 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-07-04 11:39:50 +0000 |
| commit | 62e030d764506fc1c76d0e459f2e86f6eb7ef139 (patch) | |
| tree | f4211cc3e3de6d635fb5462fe5433ce658a210b8 /ocamldoc/odoc_sig.ml | |
| parent | e64970f29dbbce99f28e1d29028854b95ee69f53 (diff) | |
added field ex_code to exceptions
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5657 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_sig.ml')
| -rw-r--r-- | ocamldoc/odoc_sig.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ocamldoc/odoc_sig.ml b/ocamldoc/odoc_sig.ml index d6915e893..b97227220 100644 --- a/ocamldoc/odoc_sig.ml +++ b/ocamldoc/odoc_sig.ml @@ -552,7 +552,14 @@ module Analyser = ex_info = comment_opt ; ex_args = List.map (Odoc_env.subst_type env) types_excep_decl ; ex_alias = None ; - ex_loc = { loc_impl = None ; loc_inter = Some (!file_name, pos_start_ele) } + ex_loc = { loc_impl = None ; loc_inter = Some (!file_name, pos_start_ele) } ; + ex_code = + ( + if !Odoc_args.keep_code then + Some (get_string_of_file pos_start_ele (pos_end_ele + pos_limit)) + else + None + ) ; } in let (maybe_more, info_after_opt) = |