From 274c49d89623b95f8b682b8dba5e9db9174ec808 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Thu, 1 Oct 2015 22:32:12 +0600
Subject: Some error handling in config loading.

---
 _oasis         |  2 +-
 src/vyconfd.ml | 12 +++++++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/_oasis b/_oasis
index 0c2b305..d2de4fc 100644
--- a/_oasis
+++ b/_oasis
@@ -65,7 +65,7 @@ Executable "vyconfd"
   Path: src
   MainIs: vyconfd.ml
   CompiledObject: best
-  BuildDepends: ppx_deriving_yojson.runtime
+  BuildDepends: ppx_deriving_yojson.runtime, lwt, lwt.unix
 
 Executable "vytree_test"
   Path: test
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."
-- 
cgit v1.2.3