fix rss xml bug

zachary822 · Nov 28, 2023 · 4988fef · 4988fef
1 parent e854343
commit 4988fef
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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=\""