software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opened tomllenses in of_filename

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-19 23:04:03 +01:00
parent 6f66dc7d17
commit 803deb23ae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/web.ml
View File

@ -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";