extention for path function

2016-10-26 23:58:43 +01:00 · 2016-10-26 23:58:43 +01:00 · 773007a307
commit 773007a307
parent 96bf1ae638
1 changed files with 1 additions and 1 deletions
--- a/src/web.ml
+++ b/src/web.ml
@ -36,7 +36,7 @@ module Configuration = struct
       }
 end

-let ymdpath title = return @@ "ymd/" ^ (Ymd.filename_of_title title)
+let ymdpath title = return @@ "ymd/" ^ (Ymd.filename_of_title title) ^ ".ymd"

 let ymd_of_body_pairs pairs =
  let open Ymd in