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

fix unused returned value

Browse Source
This commit is contained in:
Stavros Polymenis 2016-12-08 21:09:53 +00:00
parent 96e9a909e6
commit 4ebb734c99
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/logarion.ml
View File

@ -51,10 +51,11 @@ let uuid_path ymd =
"ymd/uuid/" ^ Id.to_string ymd.meta.uuid ^ ".ymd"
let to_file ymd =
let open Lwt.Infix in
let uuid_path = uuid_path ymd in
let write_ymd out = Lwt_io.write out (Ymd.to_string ymd) in
Lwt_io.with_file ~mode:Lwt_io.output uuid_path write_ymd;
>>= fun () ->
let open Ymd in
if not (categorised [Category.Draft] ymd) && ymd.meta.title <> "" then
let fmp = file_meta_pairs () in