From 50f698532ae5e190dd67487c93e5deb2b5158322 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Wed, 9 Feb 2022 11:47:44 +0100
Subject: Make minor improvements to the generated files

---
 src/Translate.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

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;
-- 
cgit v1.2.3