diff options
| author | alainfrisch <alain@frisch.fr> | 2016-01-20 00:02:30 +0100 |
|---|---|---|
| committer | alainfrisch <alain@frisch.fr> | 2016-01-20 00:02:30 +0100 |
| commit | ae3af451b8fef6be5798e1136c6410de5301c1e8 (patch) | |
| tree | 4a4324a7591949405dafcfbc13b2a55eed15b23d /ocamldoc/odoc_man.ml | |
| parent | 09bc2670387b0efb2fcc6fffeb0295fcd6899cb2 (diff) | |
| download | ocaml-ae3af451b8fef6be5798e1136c6410de5301c1e8.tar.gz | |
Remove useless bindings, use proper sequencing instead of 'let _ = ... in ...'.
Diffstat (limited to 'ocamldoc/odoc_man.ml')
| -rw-r--r-- | ocamldoc/odoc_man.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index 3c85aa32ac..d2ee3f7501 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -355,12 +355,10 @@ class man = match_s (Name.get_relative m_name match_s) in - let s2 = Str.global_substitute - (Str.regexp "\\([A-Z]\\([a-zA-Z_'0-9]\\)*\\.\\)+\\([a-z][a-zA-Z_'0-9]*\\)") - f - s - in - s2 + Str.global_substitute + (Str.regexp "\\([A-Z]\\([a-zA-Z_'0-9]\\)*\\.\\)+\\([a-z][a-zA-Z_'0-9]*\\)") + f + s (** Print groff string to display a [Types.type_expr].*) method man_of_type_expr b m_name t = |