ivan/site
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix blog feed

Browse Source
This commit is contained in:
rf
2022-09-24 13:33:57 -05:00
parent a462d8827d
commit e13c89c161
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
render/render.ml
View File

@@ -119,8 +119,7 @@ module Render = struct
let render_blog_index (_ : Dream.request) = let render_blog_index (_ : Dream.request) =
let buff = Buffer.create 512 in let buff = Buffer.create 512 in
let () = Buffer.add_string buff "<h3>Blog</h3>" in let () = Buffer.add_string buff "<h3>Blog</h3> I have an <a href=\"/blog/rss.xml\">rss feed</a> too." in
let () = Buffer.add_string buff "\r\nI have an <a href=\"/blog/rss.xml\">rss feed</a> too." in
let posts_t = Database.get_all_blog_posts () in let posts_t = Database.get_all_blog_posts () in
posts_t >>= function posts_t >>= function
| Error e -> handle_error e | Error e -> handle_error e