diff --git a/Handler/Package.hs b/Handler/Package.hs index b530fbc..940dd77 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -13,7 +13,6 @@ import qualified Database.Esqueleto as E import Formatting import Import import Text.Email.Validate -import Text.Markdown -- | Page metadata package. getPackageR :: PackageName -> Handler Html @@ -38,9 +37,7 @@ getPackageR pn = do recentDownloads <- count [DownloadPackage ==. pn, DownloadTimestamp >=. nowMinus30] metadata <- getBy404 (UniqueMetadata pn) return (packages, downloads, recentDownloads, metadata) - readmeText <- return "TODO" - let readmeHtml = markdown def readmeText - deps = enumerate (metadataDeps metadata) + let deps = enumerate (metadataDeps metadata) authors = enumerate (parseIdentitiesLiberally (metadataAuthor metadata)) maintainers = let ms = enumerate (parseIdentitiesLiberally (metadataMaintainer metadata)) in if ms == authors diff --git a/templates/package.hamlet b/templates/package.hamlet index 49522f7..d096a3b 100644 --- a/templates/package.hamlet +++ b/templates/package.hamlet @@ -109,12 +109,22 @@ $newline never