diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-27 23:29:57 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-27 23:29:57 -0300 |
| commit | 4fdf3392868c72ff4c33b70d165a177e97f2fece (patch) | |
| tree | 4eebfc260c890ea56d59f874cdfa0c9b1f55cd98 /lib/configuration.ml | |
| parent | 97960adb8426e5270fe16b027e82a2c61674f821 (diff) | |
| download | Sakura-4fdf3392868c72ff4c33b70d165a177e97f2fece.tar.gz Sakura-4fdf3392868c72ff4c33b70d165a177e97f2fece.zip | |
Format
Diffstat (limited to '')
| -rw-r--r-- | lib/configuration.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/configuration.ml b/lib/configuration.ml index 6229ce6..3f66ac0 100644 --- a/lib/configuration.ml +++ b/lib/configuration.ml @@ -26,9 +26,11 @@ let insert_section ~expected acc key body = in match body with | [ subtree ] -> Ok (Utilities.StringMap.add key subtree acc) - | [] -> errorf "Configuration section %s is empty (expected a tagged value)" key + | [] -> + errorf "Configuration section %s is empty (expected a tagged value)" key | _ -> - errorf "Configuration section %s has multiple values (expected exactly one)" + errorf + "Configuration section %s has multiple values (expected exactly one)" key (** [(server ...)] sexp -> section map. Rejects unknown/duplicate keys. *) |