From 7ec843fc23f0ad28c692dd3b0c64cef37a79c5bb Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Thu, 24 Sep 2015 18:07:07 +0600 Subject: Add a module for various defaults. --- src/defaults.ml | 7 +++++++ src/defaults.mli | 5 +++++ src/vyconfd.ml | 4 ++++ 3 files changed, 16 insertions(+) create mode 100644 src/defaults.ml create mode 100644 src/defaults.mli diff --git a/src/defaults.ml b/src/defaults.ml new file mode 100644 index 0000000..7bf46a8 --- /dev/null +++ b/src/defaults.ml @@ -0,0 +1,7 @@ +type vyconf_defaults = { + config_file: string; +} + +let defaults = { + config_file = "/etc/vyconfd.conf"; +} diff --git a/src/defaults.mli b/src/defaults.mli new file mode 100644 index 0000000..48e5cdb --- /dev/null +++ b/src/defaults.mli @@ -0,0 +1,5 @@ +type vyconf_defaults = { + config_file: string; +} + +val defaults : vyconf_defaults diff --git a/src/vyconfd.ml b/src/vyconfd.ml index 87eb657..4a5cd5d 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -1 +1,5 @@ +open Defaults + +let config = Vyconf_config.load defaults.config_file + let () = print_endline "This is VyConf. Or, rather, will be." -- cgit v1.2.3