From d515e5be698397612630548652bf7c146da39d6d Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Tue, 13 Dec 2016 08:05:48 +0600
Subject: Fix a few instances of sloppy sequences (with non-unit expressions).

---
 src/vyconfd.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vyconfd.ml b/src/vyconfd.ml
index 3f80c1d..120990f 100644
--- a/src/vyconfd.ml
+++ b/src/vyconfd.ml
@@ -29,7 +29,8 @@ let load_config path =
     match result with
     | Result.Ok cfg -> cfg
     | Result.Error err ->
-        Lwt_log.fatal (Printf.sprintf "Could not load the configuration file %s" err); exit 1
+        Lwt_log.fatal (Printf.sprintf "Could not load the configuration file %s" err) |> Lwt.ignore_result;
+        exit 1
 
 let setup_logger daemonize log_file template =
     (* 
-- 
cgit v1.2.3