Commit a5b85c5d authored by Artemiy's avatar Artemiy
Browse files

keep real tag name

parent dea11196
......@@ -425,6 +425,11 @@ let given_tag tag =
article.tags )
articles_by_date
in
let tag =
List.find
(fun t -> String.equal (normalize_tag t) tag)
(List.hd articles_with_tag).tags
in
Format.asprintf {|<h1 id="page-title">Articles tagged with %s</h1>%s%a@.|} tag
links_to_home_pages pp_blog_posts articles_with_tag
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment