stray space

This commit is contained in:
Stavros Polymenis 2016-11-01 23:27:36 +00:00
parent 152f1695d2
commit 29157f7f02

View File

@ -100,7 +100,7 @@ let with_meta_kv meta (k,v) =
| "categories"-> of_str_list meta meta_categories v
| "series" -> of_str_list meta meta_series v
| "uuid" ->
(match Id.of_string v with Some id -> (meta_uuid ^= id) meta | None -> meta)
(match Id.of_string v with Some id -> (meta_uuid ^= id) meta | None -> meta)
| _ -> meta
let with_kv ymd (k,v) =