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

fix link

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

2
render/render.ml
View File

@@ -120,7 +120,7 @@ module Render = struct
let render_blog_index (_ : Dream.request) =
let buff = Buffer.create 512 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 () = 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
posts_t >>= function
| Error e -> handle_error e