diff options
| author | Rutger Broekhoff | 2026-03-09 22:40:21 +0100 |
|---|---|---|
| committer | Rutger Broekhoff | 2026-03-09 22:40:21 +0100 |
| commit | 6b8cdd36608affc95617c48551c832147aff2e19 (patch) | |
| tree | 422e53f54f38f74a0b409757ef6c440f0130b150 /lib/account/type_hierarchy.ml | |
| parent | c90ff5253efd858a2bf0c20eaa2ee9763a402783 (diff) | |
| download | rdcapsis-ocaml.tar.gz rdcapsis-ocaml.zip | |
asdfocaml
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 |