diff --git a/data/gen_data.ml b/data/gen_data.ml
index efa38635..102f59ea 100644
--- a/data/gen_data.ml
+++ b/data/gen_data.ml
@@ -58,8 +58,9 @@ module Blog = struct
     ; permalink = %a
     ; body = %a
     }|}
-      (Ptime.to_float_s v.updated) (Pp.list People.pp) v.authors Pp.string
-      v.subject Pp.string v.permalink Pp.string v.body
+      (Ptime.to_float_s v.updated)
+      (Pp.list People.pp) v.authors Pp.string v.subject Pp.string v.permalink
+      Pp.string v.body
 end
 
 module Wiki = struct
diff --git a/template/util.ml b/template/util.ml
index 653c67c7..c88d08ad 100644
--- a/template/util.ml
+++ b/template/util.ml
@@ -1,3 +1,3 @@
 let date_to_string ptime =
-  let (year, month, day) = Ptime.to_date ptime in
+  let year, month, day = Ptime.to_date ptime in
   Fmt.str "%04d-%02d-%02d" year month day