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

improved scoping expressions

Browse Source
This commit is contained in:
Stavros Polymenis 2016-09-20 21:51:20 +01:00
parent 3a80a13326
commit 0a45e01bbd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/html.ml
View File

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