diff options
-rw-r--r-- | src/Translate.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Translate.ml b/src/Translate.ml index f86ef438..c6db9f19 100644 --- a/src/Translate.ml +++ b/src/Translate.ml @@ -357,8 +357,11 @@ let translate_module (filename : string) (dest_dir : string) (* Create a vertical box *) Format.pp_open_vbox fmt 0; - (* Add the module name *) - Format.pp_print_string fmt ("(** " ^ m.M.name ^ " *)"); + (* Create the header *) + Format.pp_print_string fmt + "(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)"; + Format.pp_print_break fmt 0 0; + Format.pp_print_string fmt ("(** [" ^ m.M.name ^ "] *)"); Format.pp_print_break fmt 0 0; Format.pp_print_string fmt ("module " ^ module_name); Format.pp_print_break fmt 0 0; |