From b69b5d6a3a649b03ae186cbb1f8192c3b9a40d8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?H=C3=A9cate=20Moonlight?= <hecate+github@glitchbra.in>
Date: Sat, 23 Sep 2023 14:16:47 +0200
Subject: [PATCH] Close <p> tags in the revisions RSS feed

---
 src/Distribution/Server/Pages/Recent.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Distribution/Server/Pages/Recent.hs b/src/Distribution/Server/Pages/Recent.hs
index 19e7e75b..ac60f89a 100644
--- a/src/Distribution/Server/Pages/Recent.hs
+++ b/src/Distribution/Server/Pages/Recent.hs
@@ -241,7 +241,7 @@ releaseItem users hostURI pkgInfo =
     title = display (packageName pkgId) ++ " " ++ display (packageVersion pkgId)
     body  = fromShortText $ synopsis (packageDescription (pkgDesc pkgInfo))
     desc  = "<i>Added by " ++ display user ++ ", " ++ showTime time ++ ".</i>"
-         ++ if null body then "" else "<p>" ++ body
+         ++ if null body then "" else "<p>" ++ body ++ "</p>"
     user = Users.userIdToName users userId
 
     (time, userId) = pkgOriginalUploadInfo pkgInfo
@@ -261,7 +261,7 @@ revisionItem users hostURI pkgInfo =
     title = display (packageName pkgId) ++ " " ++ display (packageVersion pkgId)
     body  = "Revision #" ++ show revision
     desc  = "<i>Revised by " ++ display user ++ ", " ++ showTime time ++ ".</i>"
-         ++ if null body then "" else "<p>" ++ body
+         ++ if null body then "" else "<p>" ++ body ++ "</p>"
     user = Users.userIdToName users userId
     revision = pkgNumRevisions pkgInfo - 1