diff options
Diffstat (limited to 'lib/account/type_hierarchy.ml')
| -rw-r--r-- | lib/account/type_hierarchy.ml | 6 |
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). *) |
| 37 | let rec get_node : path -> tree option = | 37 | let rec get_node : path -> tree option = |
| 38 | let open Option.Let_syntax in | 38 | let open Option.Let_syntax in |
| 39 | function | 39 | function |