From 803deb23aedd10a5052ad20f5dc56a0f9c9958c2 Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Wed, 19 Oct 2016 23:04:03 +0100 Subject: [PATCH] opened tomllenses in of_filename --- src/web.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/web.ml b/src/web.ml index 6febc65..b0a12ca 100644 --- a/src/web.ml +++ b/src/web.ml @@ -21,8 +21,9 @@ module Configuration = struct match result with | `Error (str, loc) -> { url = None; stylesheets = None; template = blank_template_set } | `Ok tbl -> - let str_of table_name key_name = TomlLenses.(get tbl (key table_name |-- table |-- key key_name |-- string)) in - let strs_of table_name key_name = TomlLenses.(get tbl (key table_name |-- table |-- key key_name |-- array |-- strings)) in + let open TomlLenses in + let str_of table_name key_name = get tbl (key table_name |-- table |-- key key_name |-- string) in + let strs_of table_name key_name = get tbl (key table_name |-- table |-- key key_name |-- array |-- strings) in { url = str_of "general" "url"; stylesheets = strs_of "general" "stylesheets";