src/vyconfd.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

open Lwt
open Defaults

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."