diff options
Diffstat (limited to 'ocamldoc/odoc_dag2html.ml')
-rw-r--r-- | ocamldoc/odoc_dag2html.ml | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/ocamldoc/odoc_dag2html.ml b/ocamldoc/odoc_dag2html.ml index 74119e6e8b..9725d115a4 100644 --- a/ocamldoc/odoc_dag2html.ml +++ b/ocamldoc/odoc_dag2html.ml @@ -938,14 +938,16 @@ let tablify phony no_optim no_group d = let t = {table = Array.append t.table [| Array.of_list new_row |]} in let t = if no_group && not (has_phony_children phony d t) then t - else - let _ = if no_optim then () else equilibrate t in - let _ = group_elem t in - let _ = group_ghost t in - let _ = group_children t in - let _ = group_span_by_common_children d t in + else begin + if no_optim then () else equilibrate t; + group_elem t; + group_ghost t; + group_children t; + group_span_by_common_children d t; let t = if no_optim then t else treat_gaps d t in - let _ = group_span_last_row t in t + group_span_last_row t; + t + end in loop t in @@ -1442,7 +1444,7 @@ let table_of_dag phony no_optim invert no_group d = let d = if invert then invert_dag d else d in let t = tablify phony no_optim no_group d in let t = if invert then invert_table t else t in - let _ = fall () t in + fall () t; let t = fall2_right t in let t = fall2_left t in let t = shorten_too_long t in |