diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vyconfd.ml | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/vyconfd.ml b/src/vyconfd.ml index 4a5cd5d..29345fb 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -1,5 +1,15 @@ +open Lwt open Defaults -let config = Vyconf_config.load defaults.config_file +let () = Lwt_log.add_rule "*" Lwt_log.Info + +let config = + let result = Vyconf_config.load defaults.config_file in + match result with + | `Ok cfg -> cfg + | `Error err -> + Lwt_log.fatal (Printf.sprintf "Could not load the configuration file %s" err); exit 1 + + let () = print_endline "This is VyConf. Or, rather, will be." |