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

refactoring

Browse Source
This commit is contained in:
Stavros Polymenis 2016-12-19 22:13:05 +00:00
parent 670a117372
commit bb07d517ad
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/logarion.ml
View File

@ -58,9 +58,7 @@ let rec next_semantic_filepath ?(version=0) ymd =
if Sys.file_exists candidate then next_semantic_filepath ~version:(version+1) ymd
else candidate
let uuid_path ymd =
let open Ymd in
"ymd/uuid/" ^ Id.to_string ymd.meta.uuid ^ ".ymd"
let uuid_path ymd = "ymd/uuid/" ^ Ymd.(Id.to_string ymd.meta.uuid) ^ ".ymd"
let slug_of_filename filename = List.hd @@ BatString.split_on_char '.' filename