diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-03-05 12:37:17 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-03-05 12:37:17 +0000 |
| commit | b01b7305bd71e9d9aacb2b1274fbb064f1beee64 (patch) | |
| tree | 76f027790f081f93e61ee392c04a52237b3726c0 /parsing/ast_mapper.mli | |
| parent | 8823b9dd6ca1b3a5ba741b3b0023721adfd1d9f5 (diff) | |
| download | ocaml-b01b7305bd71e9d9aacb2b1274fbb064f1beee64.tar.gz | |
Put name in the exception_declaration record.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/extension_points@13350 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing/ast_mapper.mli')
| -rw-r--r-- | parsing/ast_mapper.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/ast_mapper.mli b/parsing/ast_mapper.mli index 55eab2c0e3..f79f0f1446 100644 --- a/parsing/ast_mapper.mli +++ b/parsing/ast_mapper.mli @@ -146,7 +146,7 @@ module MT: val mk_item: ?loc:Location.t -> signature_item_desc -> signature_item val value: ?loc:Location.t -> string loc -> value_description -> signature_item val type_: ?loc:Location.t -> (string loc * type_declaration) list -> signature_item - val exception_: ?loc:Location.t -> string loc -> exception_declaration -> signature_item + val exception_: ?loc:Location.t -> exception_declaration -> signature_item val module_: ?loc:Location.t -> module_declaration -> signature_item val rec_module: ?loc:Location.t -> module_declaration list -> signature_item val modtype: ?loc:Location.t -> ?attributes:Parsetree.attribute list -> string loc -> modtype_declaration -> signature_item @@ -172,7 +172,7 @@ module M: val value: ?loc:Location.t -> rec_flag -> (pattern * expression) list -> structure_item val primitive: ?loc:Location.t -> string loc -> value_description -> structure_item val type_: ?loc:Location.t -> (string loc * type_declaration) list -> structure_item - val exception_: ?loc:Location.t -> string loc -> exception_declaration -> structure_item + val exception_: ?loc:Location.t -> exception_declaration -> structure_item val exn_rebind: ?loc:Location.t -> string loc -> Longident.t loc -> structure_item val module_: ?loc:Location.t -> string loc -> module_expr -> structure_item val rec_module: ?loc:Location.t -> (string loc * module_type * module_expr) list -> structure_item |