diff options
Diffstat (limited to 'parsing/printast.ml')
| -rw-r--r-- | parsing/printast.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/parsing/printast.ml b/parsing/printast.ml index 5ea5d4e0d..9cc166d44 100644 --- a/parsing/printast.ml +++ b/parsing/printast.ml @@ -494,6 +494,9 @@ and signature_item i ppf x = | Psig_module (s, mt) -> line i ppf "Psig_module \"%s\"\n" s; module_type i ppf mt; + | Psig_recmodule decls -> + line i ppf "Psig_recmodule\n"; + list i string_x_module_type ppf decls; | Psig_modtype (s, md) -> line i ppf "Psig_modtype \"%s\"\n" s; modtype_declaration i ppf md; @@ -569,6 +572,9 @@ and structure_item i ppf x = | Pstr_module (s, me) -> line i ppf "Pstr_module \"%s\"\n" s; module_expr i ppf me; + | Pstr_recmodule bindings -> + line i ppf "Pstr_type\n"; + list i string_x_modtype_x_module ppf bindings; | Pstr_modtype (s, mt) -> line i ppf "Pstr_modtype \"%s\"\n" s; module_type i ppf mt; @@ -587,6 +593,15 @@ and string_x_type_declaration i ppf (s, td) = string i ppf s; type_declaration (i+1) ppf td; +and string_x_module_type i ppf (s, mty) = + string i ppf s; + module_type (i+1) ppf mty; + +and string_x_modtype_x_module i ppf (s, mty, modl) = + string i ppf s; + module_type (i+1) ppf mty; + module_expr (i+1) ppf modl; + and longident_x_with_constraint i ppf (li, wc) = line i ppf "%a\n" fmt_longident li; with_constraint (i+1) ppf wc; |