From d498690d867f84c6c48f6e93cbd0a0c0c2909e4f Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Sat, 18 Feb 2017 10:04:22 +0700 Subject: Make config file path relative to basepath. --- src/vyconfd.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/src/vyconfd.ml b/src/vyconfd.ml index c2ca6f7..4058a5b 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -143,6 +143,7 @@ let make_world config dirs = let () = let () = Arg.parse args (fun f -> ()) usage in + let () = config_file := FP.concat !basepath !config_file in let config = Startup.load_config !config_file in let () = Lwt_log.load_rules ("* -> " ^ config.log_level) in let dirs = Directories.make !basepath config in -- cgit v1.2.3