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

refactored

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-19 21:51:08 +01:00
parent f7a482316f
commit 6d9baec448
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/logarion.ml
View File

@ -10,10 +10,8 @@ module Configuration = struct
match result with match result with
| `Error (str, loc) -> { title = ""; owner = ""; email = "" } | `Error (str, loc) -> { title = ""; owner = ""; email = "" }
| `Ok tbl -> | `Ok tbl ->
let str_of key_name = let str_of key_name = match TomlLenses.(get tbl (key "general" |-- table |-- key key_name |-- string)) with
let open TomlLenses in Some v -> v | None -> "" in
let value_option = get tbl (key "general" |-- table |-- key key_name |-- string) in
match value_option with Some v -> v | None -> "" in
{ title = str_of "title"; owner = str_of "owner"; email = str_of "email" } { title = str_of "title"; owner = str_of "owner"; email = str_of "email" }
end end