From 4988fef0101230fbe16c7d32ac7b9ffa43989813 Mon Sep 17 00:00:00 2001
From: Zachary Juang <zachary822@me.com>
Date: Tue, 28 Nov 2023 16:47:03 -0500
Subject: [PATCH] fix rss xml bug

---
 app/Lib/Rss.hs            | 2 +-
 app/Lib/Rss/Attributes.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/app/Lib/Rss.hs b/app/Lib/Rss.hs
index 31008b0..b15db53 100644
--- a/app/Lib/Rss.hs
+++ b/app/Lib/Rss.hs
@@ -53,7 +53,7 @@ pubDate :: RSS -> RSS
 pubDate = Parent "pubDate" "<pubDate" "</pubDate>"
 
 atomLink :: RSS
-atomLink = Leaf "atom:link" "<atom:link" ">" ()
+atomLink = Leaf "atom:link" "<atom:link" "/>" ()
 
 item :: RSS -> RSS
 item = Parent "item" "<item" "</item>"
diff --git a/app/Lib/Rss/Attributes.hs b/app/Lib/Rss/Attributes.hs
index 20f30b1..954b748 100644
--- a/app/Lib/Rss/Attributes.hs
+++ b/app/Lib/Rss/Attributes.hs
@@ -9,7 +9,7 @@ import Text.Blaze
 import Text.Blaze.Internal
 
 href :: AttributeValue -> Attribute
-href = attribute "href" "href=\""
+href = attribute "href" " href=\""
 
 rel :: AttributeValue -> Attribute
-rel = attribute "rel" "rel=\""
+rel = attribute "rel" " rel=\""