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

add rss feed link

Browse Source
This commit is contained in:
rf
2022-09-24 13:28:10 -05:00
parent 8284346c5d
commit c80e26869f
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
render/render.ml
View File

@@ -120,6 +120,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>" in
let () = Buffer.add_string buff "\r\n<p>I have an <a href=\"/blog/rss.xml\">rss feed</a> too.</p>"
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