summaryrefslogtreecommitdiffstats
path: root/lib/account/type_hierarchy.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/account/type_hierarchy.ml')
-rw-r--r--lib/account/type_hierarchy.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/account/type_hierarchy.ml b/lib/account/type_hierarchy.ml
index 7f27830..8c20f07 100644
--- a/lib/account/type_hierarchy.ml
+++ b/lib/account/type_hierarchy.ml
@@ -31,9 +31,9 @@ let canonical : trunk =
31 make [ ("Accounts_payable", make []); ("Credit", make []) ] ) ); 31 make [ ("Accounts_payable", make []); ("Credit", make []) ] ) );
32 ] 32 ]
33 33
34(* In this module, only the following two function entertains the 34(* In this module, only the following function entertains the option
35 option that the given path may not be valid (i.e., it does not 35 that the given path may not be valid (i.e., it does not throw an
36 throw an exception for invalid paths). *) 36 exception for invalid paths). *)
37let rec get_node : path -> tree option = 37let rec get_node : path -> tree option =
38 let open Option.Let_syntax in 38 let open Option.Let_syntax in
39 function 39 function