From dac70f4d725727731f873432f882584be74c6f40 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Wed, 15 Mar 2017 10:44:55 +0000
Subject: [PATCH] Fix generation of @canonical tags

---
 src/gen_rules.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gen_rules.ml b/src/gen_rules.ml
index c7c3c169..adf618ea 100644
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@@ -1341,7 +1341,7 @@ module Gen(P : Params) = struct
         (Build.return
            (String_map.values (String_map.remove m.name modules)
             |> List.map ~f:(fun (m : Module.t) ->
-              sprintf "(* @canonical %s.%s *)\n\
+              sprintf "(** @canonical %s.%s *)\n\
                        module %s = %s\n"
                 main_module_name m.name
                 m.name (Module.real_unit_name m))