From 132ddca42b8aee7a1a8d2e56901b1ed5d7bb7101 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Mon, 13 Mar 2017 14:08:15 +0000
Subject: [PATCH] generate @canonical doc tags

---
 CHANGES.org      | 2 ++
 src/gen_rules.ml | 7 +++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/CHANGES.org b/CHANGES.org
index 9c373a12..77759e8f 100644
--- a/CHANGES.org
+++ b/CHANGES.org
@@ -10,6 +10,8 @@
 - Added =${null}= which expands to =/dev/null= on Unix and =NUL= on
   Windows
 
+- Improve the doc generated by =odoc= for wrapped libraries
+
 - Fix a bug where =jbuilder= would crash when there was no
   =<package>.opam= file
 
diff --git a/src/gen_rules.ml b/src/gen_rules.ml
index ca12cddc..d9e50f1d 100644
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@@ -1341,8 +1341,11 @@ module Gen(P : Params) = struct
         (Build.return
            (String_map.values (String_map.remove m.name modules)
             |> List.map ~f:(fun (m : Module.t) ->
-              sprintf "module %s = %s\n" m.name (Module.real_unit_name m))
-            |> String.concat ~sep:"")
+              sprintf "(* @canonical %s.%s *)\n\
+                       module %s = %s\n"
+                main_module_name m.name
+                m.name (Module.real_unit_name m))
+            |> String.concat ~sep:"\n")
          >>> Build.update_file_dyn (Path.relative dir m.ml_fname)));
 
     let requires, real_requires =