diff --git a/cli/html.ml b/cli/html.ml index 5f26360..d88ab25 100644 --- a/cli/html.ml +++ b/cli/html.ml @@ -95,7 +95,7 @@ let to_dated_links ?(limit) meta_list = | h::t -> if i < limit then reduced (h::acc) (i+1) t else acc in List.rev @@ reduced [] 0 meta_list in List.fold_left - (fun a m -> Printf.sprintf "%s