diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-09-27 17:05:39 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-09-27 17:05:39 +0000 |
| commit | cc31694f7ca1043080fc290e5a82520513cf7f94 (patch) | |
| tree | 1123085352316cb8df8a26157ec4070882f899fe /ocamldoc/odoc_ast.ml | |
| parent | c0778758c1bc167ac0f9d5725bb886bc26540bc9 (diff) | |
| download | ocaml-cc31694f7ca1043080fc290e5a82520513cf7f94.tar.gz | |
Keep attributes on module declarations.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14195 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_ast.ml')
| -rw-r--r-- | ocamldoc/odoc_ast.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ocamldoc/odoc_ast.ml b/ocamldoc/odoc_ast.ml index a4da0f73a8..dd106b4f04 100644 --- a/ocamldoc/odoc_ast.ml +++ b/ocamldoc/odoc_ast.ml @@ -944,12 +944,12 @@ module Analyser = let f = match ele with Element_module m -> (function - Types.Sig_module (ident,t,_) -> + Types.Sig_module (ident,md,_) -> let n1 = Name.simple m.m_name and n2 = Ident.name ident in ( match n1 = n2 with - true -> filter_module_with_module_type_constraint m t; true + true -> filter_module_with_module_type_constraint m md.md_type; true | false -> false ) | _ -> false) |