Include title in blog posts

requested by https://news.ycombinator.com/item?id=8054614
mirage · Jul 18, 2014 · cb96f95 · cb96f95
1 parent 00bcefa
commit cb96f95
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/blog.ml b/src/blog.ml
@@ -49,7 +49,7 @@ let dispatch ({title; subtitle; rights} as feed) entries =
         let content =
           C.Foundation.Blog.t ~title ~subtitle ~sidebar ~posts ~copyright ()
         in
-        let content = make content in
+        let content = make ~title content in
         return (ent.C.Blog.Entry.permalink, content)
       ) entries
   in