17 lines
537 B
OCaml
17 lines
537 B
OCaml
--- src/relation.ml.orig 2024-02-11 19:02:59 UTC
|
|
+++ src/relation.ml
|
|
@@ -194,11 +194,11 @@ value old_print_relationship_dag conf base elem_txt vb
|
|
let hts = Dag.make_tree_hts conf base elem_txt vbar_txt invert set [] d in
|
|
Dag.print_slices_menu_or_dag_page conf base page_title hts next_txt
|
|
;
|
|
-end ELSE declare
|
|
+end; ELSE declare
|
|
value old_print_relationship_dag conf base elem_txt vbar_txt path next_txt =
|
|
incorrect_request conf
|
|
;
|
|
-end END;
|
|
+end; END;
|
|
|
|
value add_common_parent base ip1 ip2 set =
|
|
let a1 = poi base ip1 in
|