diff options
| author | Jules Aguillon <jules@j3s.fr> | 2022-02-22 17:08:06 +0100 |
|---|---|---|
| committer | Jules Aguillon <jules@j3s.fr> | 2022-02-22 17:40:44 +0100 |
| commit | 8556cd9da7500aa84b72681c2de4f6084cc905cf (patch) | |
| tree | 6e6c98c499d927853d2571a1a4daf19350b895dc | |
| parent | 8bb4540c32895114c7a5fd091b1e520652648161 (diff) | |
| download | ocaml-8556cd9da7500aa84b72681c2de4f6084cc905cf.tar.gz | |
ocamldoc: Render alerts before custom tags
| -rw-r--r-- | ocamldoc/odoc_html.ml | 2 | ||||
| -rw-r--r-- | ocamldoc/odoc_man.ml | 2 | ||||
| -rw-r--r-- | ocamldoc/odoc_texi.ml | 2 | ||||
| -rw-r--r-- | ocamldoc/odoc_to_text.ml | 4 |
4 files changed, 5 insertions, 5 deletions
diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml index 5b65801005..6729e582eb 100644 --- a/ocamldoc/odoc_html.ml +++ b/ocamldoc/odoc_html.ml @@ -774,8 +774,8 @@ class virtual info = self#html_of_raised_exceptions b' info.M.i_raised_exceptions; self#html_of_return_opt b' info.M.i_return_value; self#html_of_sees b' info.M.i_sees; - self#html_of_custom b' info.M.i_custom; self#html_of_alerts b' info.M.i_alerts; + self#html_of_custom b' info.M.i_custom; if Buffer.length b' > 0 then begin bs b "<ul class=\"info-attributes\">\n"; diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index 49364bc6ec..cc8165b1a8 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -245,8 +245,8 @@ class virtual info = self#str_man_of_return_opt info.M.i_return_value; self#str_man_of_sees info.M.i_sees; ] - @ self#str_man_of_custom info.M.i_custom @ self#str_man_of_alerts info.M.i_alerts + @ self#str_man_of_custom info.M.i_custom in let l = List.filter ((<>) "") l in Buffer.add_string b (String.concat "\n.sp\n" l) diff --git a/ocamldoc/odoc_texi.ml b/ocamldoc/odoc_texi.ml index d0b0c761ca..e79eab7a15 100644 --- a/ocamldoc/odoc_texi.ml +++ b/ocamldoc/odoc_texi.ml @@ -553,8 +553,8 @@ class texi = then ( linebreak :: self#text_of_return_opt info.i_return_value ) else [] ; - self#text_of_custom info.i_custom ; self#text_of_alerts info.i_alerts ; + self#text_of_custom info.i_custom ; ] in if block then [ Block t ] diff --git a/ocamldoc/odoc_to_text.ml b/ocamldoc/odoc_to_text.ml index aec41279eb..7fc28fda8e 100644 --- a/ocamldoc/odoc_to_text.ml +++ b/ocamldoc/odoc_to_text.ml @@ -179,8 +179,8 @@ class virtual info = (self#text_of_raised_exceptions info.i_raised_exceptions) @ (self#text_of_return_opt info.i_return_value) @ (self#text_of_sees info.i_sees) @ - (self#text_of_custom info.i_custom) @ - (self#text_of_alerts info.i_alerts) + (self#text_of_alerts info.i_alerts) @ + (self#text_of_custom info.i_custom) in if block then [Block t] |