Fix generation of @canonical tags

2017-03-15 10:44:55 +00:00 · 2017-03-15 10:44:55 +00:00 · dac70f4d72
parent 6cf93d69b5
commit dac70f4d72
1 changed files with 1 additions and 1 deletions
--- 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))