logarion archiver needs to add appropriate file extension

2016-10-26 22:39:06 +01:00 · 2016-10-26 22:39:06 +01:00 · 8320145b3c
commit 8320145b3c
parent befcf99520
1 changed files with 1 additions and 1 deletions
--- a/src/logarion.ml
+++ b/src/logarion.ml
@ -36,7 +36,7 @@ let of_file s =

 let to_file ymd =
  let open Lwt.Infix in
-  let path = "ymd/" ^ (Ymd.filename ymd) in
+  let path = "ymd/" ^ (Ymd.filename ymd) ^ ".ymd" in
  Lwt_io.with_file ~mode:Lwt_io.output path  (fun out ->
      Lwt_io.write out (Ymd.to_string ymd)
    )