Merge pull request #14 from jestabro/commit-alg

T6946: add calculation of commit priority queues

1 files changed, 4 insertions, 3 deletions

diff --git a/src/startup.ml b/src/startup.ml
index db0d719..db2784d 100644
--- a/src/startup.ml
+++ b/src/startup.ml
@@ -33,7 +33,7 @@ let setup_logger daemonize log_file template =
 
 (** Load the config file or panic if it fails *)
 let load_daemon_config path =
-    let result = Vyconfd_config.Vyconf_config.load path in
+    let result = Vyconf_config.load path in
     match result with
     | Ok cfg -> cfg
     | Error err ->
@@ -41,13 +41,13 @@ let load_daemon_config path =
 
 (** Check if appliance directories exist and panic if they don't *)
 let check_dirs dirs =
-    let res = Vyconfd_config.Directories.test dirs in
+    let res = Directories.test dirs in
     match res with
     | Ok _ -> ()
     | Error err -> panic err
 
 let check_validators_dir dirs =
-    let res = Vyconfd_config.Directories.test_validators_dir dirs in
+    let res = Directories.test_validators_dir dirs in
     match res with
     | Ok _ -> ()
     | Error err -> panic err
@@ -136,5 +136,6 @@ module I = Vyos1x.Internal.Make(Vyos1x.Reference_tree)
 let read_reference_tree file =
     try
         let reftree = I.read_internal file in
+        log_info @@ Printf.sprintf "Reading interface definitions from %s" file;
         Ok reftree
     with Sys_error msg -> Error msg