generate @canonical doc tags
This commit is contained in:
parent
d8676041e6
commit
132ddca42b
|
@ -10,6 +10,8 @@
|
||||||
- Added =${null}= which expands to =/dev/null= on Unix and =NUL= on
|
- Added =${null}= which expands to =/dev/null= on Unix and =NUL= on
|
||||||
Windows
|
Windows
|
||||||
|
|
||||||
|
- Improve the doc generated by =odoc= for wrapped libraries
|
||||||
|
|
||||||
- Fix a bug where =jbuilder= would crash when there was no
|
- Fix a bug where =jbuilder= would crash when there was no
|
||||||
=<package>.opam= file
|
=<package>.opam= file
|
||||||
|
|
||||||
|
|
|
@ -1341,8 +1341,11 @@ module Gen(P : Params) = struct
|
||||||
(Build.return
|
(Build.return
|
||||||
(String_map.values (String_map.remove m.name modules)
|
(String_map.values (String_map.remove m.name modules)
|
||||||
|> List.map ~f:(fun (m : Module.t) ->
|
|> List.map ~f:(fun (m : Module.t) ->
|
||||||
sprintf "module %s = %s\n" m.name (Module.real_unit_name m))
|
sprintf "(* @canonical %s.%s *)\n\
|
||||||
|> String.concat ~sep:"")
|
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)));
|
>>> Build.update_file_dyn (Path.relative dir m.ml_fname)));
|
||||||
|
|
||||||
let requires, real_requires =
|
let requires, real_requires =
|
||||||
|
|
Loading…
Reference in New Issue