From 6d9baec448168bd0e94159a18bcbfbb385f4f61d Mon Sep 17 00:00:00 2001
From: Stavros Polymenis <sp@orbitalfox.com>
Date: Wed, 19 Oct 2016 21:51:08 +0100
Subject: [PATCH] refactored

---
 src/logarion.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/logarion.ml b/src/logarion.ml
index 384343e..1c0ae5c 100644
--- a/src/logarion.ml
+++ b/src/logarion.ml
@@ -10,10 +10,8 @@ module Configuration = struct
     match result with
     | `Error (str, loc) -> { title = ""; owner = ""; email = "" }
     | `Ok tbl ->
-       let str_of key_name =
-         let open TomlLenses in
-         let value_option = get tbl (key "general" |-- table |-- key key_name |-- string) in
-         match value_option with Some v -> v | None -> "" in
+       let str_of key_name = match TomlLenses.(get tbl (key "general" |-- table |-- key key_name |-- string)) with
+           Some v -> v | None -> "" in
        { title = str_of "title"; owner = str_of "owner"; email = str_of "email" }
 end