From c80e26869f2a98c710b3adc50a50b5bc92f7d305 Mon Sep 17 00:00:00 2001
From: rf <rawleyfowler@gmail.com>
Date: Sat, 24 Sep 2022 13:28:10 -0500
Subject: [PATCH] add rss feed link

---
 render/render.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/render/render.ml b/render/render.ml
index da24f79..ed67ff0 100644
--- a/render/render.ml
+++ b/render/render.ml
@@ -120,6 +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 posts_t = Database.get_all_blog_posts () in
     posts_t >>= function
     | Error e -> handle_error e