From 0a45e01bbdd0406061490c90a9b0d2074c5f1a0d Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Tue, 20 Sep 2016 21:51:20 +0100 Subject: [PATCH] improved scoping expressions --- src/html.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/html.ml b/src/html.ml index f49943a..db46614 100644 --- a/src/html.ml +++ b/src/html.ml @@ -1,9 +1,9 @@ let html_of ymd = - let ymd_title = ymd.Logarion.meta.title in - let ymd_date = match ymd.Logarion.meta.date.published with + let ymd_title = Logarion.(ymd.meta.title) in + let ymd_date = match Logarion.(ymd.meta.date.published) with | Some t -> Some t - | None -> ymd.Logarion.meta.date.edited in - let ymd_body = Omd.to_html (Omd.of_string ymd.Logarion.body) in + | None -> Logarion.(ymd.meta.date.edited) in + let ymd_body = Omd.to_html (Omd.of_string Logarion.(ymd.body)) in let open Tyxml.Html in let tyhtml = html