diff options
| author | Fourchaux <jprodi04@gmail.com> | 2017-08-10 12:59:23 +0200 |
|---|---|---|
| committer | Mark Shinwell <mshinwell@gmail.com> | 2017-08-10 11:59:23 +0100 |
| commit | 72cfdd56e9459af07731451c4c10ae0ec2c6d877 (patch) | |
| tree | b1958e44ee1ea40bcca88e4a2445ce42f878e724 /ocamldoc/odoc_ast.ml | |
| parent | 9a1ddfa2dac2207b3a75a32bf9550fb4bcb39f6e (diff) | |
| download | ocaml-72cfdd56e9459af07731451c4c10ae0ec2c6d877.tar.gz | |
Typos and basic grammar error fixing (#1280)
Diffstat (limited to 'ocamldoc/odoc_ast.ml')
| -rw-r--r-- | ocamldoc/odoc_ast.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ocamldoc/odoc_ast.ml b/ocamldoc/odoc_ast.ml index b1a027d403..a6a5e55c4c 100644 --- a/ocamldoc/odoc_ast.ml +++ b/ocamldoc/odoc_ast.ml @@ -219,12 +219,12 @@ module Analyser = (** The name of the analysed file. *) let file_name = Sig.file_name - (** This function takes two indexes (start and end) and return the string + (** This function takes two indexes (start and end) and returns the string corresponding to the indexes in the file global variable. The function prepare_file must have been called to fill the file global variable.*) let get_string_of_file = Sig.get_string_of_file - (** This function loads the given file in the file global variable. + (** This function loads the given file in the file global variable and sets file_name.*) let prepare_file = Sig.prepare_file @@ -677,7 +677,7 @@ module Analyser = in iter [] [] last_pos (p_cls.Parsetree.pcstr_fields) - (** Analysis of a [Parsetree.class_expr] and a [Typedtree.class_expr] to get a a couple (class parameters, class kind). *) + (** Analysis of a [Parsetree.class_expr] and a [Typedtree.class_expr] to get a pair (class parameters, class kind). *) let rec analyse_class_kind env current_class_name comment_opt last_pos p_class_expr tt_class_exp table = match (p_class_expr.Parsetree.pcl_desc, tt_class_exp.Typedtree.cl_desc) with (Parsetree.Pcl_constr (lid, _), tt_class_exp_desc ) -> @@ -1424,7 +1424,7 @@ module Analyser = let new_env = Odoc_env.add_module env new_module.m_name in let new_env2 = match new_module.m_type with - (* FIXME : can this be Tmty_ident? In this case, we would'nt have the signature *) + (* FIXME : can this be Tmty_ident? In this case, we wouldn't have the signature *) Types.Mty_signature s -> Odoc_env.add_signature new_env new_module.m_name ~rel: (Name.simple new_module.m_name) s @@ -1528,7 +1528,7 @@ module Analyser = let new_env = Odoc_env.add_module_type env mt.mt_name in let new_env2 = match sig_mtype with - (* FIXME : can this be Tmty_ident? In this case, we would'nt have the signature *) + (* FIXME : can this be Tmty_ident? In this case, we wouldn't have the signature *) Some (Types.Mty_signature s) -> Odoc_env.add_signature new_env mt.mt_name ~rel: (Name.simple mt.mt_name) s | _ -> |