blob: b34a3c83f85e227dc62ca9dc77870f9ca5e79efe (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- 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
|
