removed redunant lines

This commit is contained in:
Stavros Polymenis 2016-12-08 23:59:45 +00:00
parent 490be5359c
commit 72f3f16911

View File

@ -18,9 +18,7 @@ module Configuration = struct
match result with
| `Error (str, loc) -> default
| `Ok toml ->
let open Logarion_toml in
let str = Logarion_toml.str toml "general" in
let str_opt = Logarion_toml.str_opt toml "general" in
{
repository = str "repository" default.repository;
title = str "title" default.title;