From aed634e3077a519af7237c2b70d4353f8eb3813a Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Thu, 15 Dec 2016 09:53:20 +0600 Subject: Rename type Vyconf_config.vyconf_config to Vyconf_config.t for brevity It's the only type it exports. --- src/vyconf_config.ml | 4 ++-- src/vyconf_config.mli | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/vyconf_config.ml b/src/vyconf_config.ml index 2f832fa..7f2ead1 100644 --- a/src/vyconf_config.ml +++ b/src/vyconf_config.ml @@ -1,6 +1,6 @@ exception Missing_field of string -type vyconf_config = { +type t = { app_name: string; data_dir: string; program_dir: string; @@ -70,4 +70,4 @@ let load filename = | Toml.Parser.Error (msg, _) -> Error msg | Missing_field msg -> Error msg -let dump = show_vyconf_config +let dump = show diff --git a/src/vyconf_config.mli b/src/vyconf_config.mli index b1679ae..36aeb27 100644 --- a/src/vyconf_config.mli +++ b/src/vyconf_config.mli @@ -1,4 +1,4 @@ -type vyconf_config = { +type t = { app_name: string; data_dir: string; program_dir: string; @@ -10,6 +10,6 @@ type vyconf_config = { log_file: string option; } -val load : string -> (vyconf_config, string) result +val load : string -> (t, string) result -val dump : vyconf_config -> string +val dump : t -> string -- cgit v1.2.3