From bb07d517ad952fe2a8835a7a99331597f0aa0f9e Mon Sep 17 00:00:00 2001
From: Stavros Polymenis <sp@orbitalfox.com>
Date: Mon, 19 Dec 2016 22:13:05 +0000
Subject: [PATCH] refactoring

---
 src/logarion.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/logarion.ml b/src/logarion.ml
index 329948f..14792cf 100644
--- a/src/logarion.ml
+++ b/src/logarion.ml
@@ -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