haskell/hackage-server
1
1
Fork 0
mirror of https://github.com/haskell/hackage-server.git synced 2024-11-24 14:52:16 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #1256 from Kleidukos/fix-html-tags-rss

Browse Source 
Close <p> tags in the revisions RSS feed
This commit is contained in:
gbaz 2023-10-17 18:47:08 -04:00 committed by GitHub
commit 458fb775ea
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Distribution/Server/Pages/Recent.hs
View File

@ -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