diff --git a/Data/WebsiteContent.hs b/Data/WebsiteContent.hs index 72c39de..4d03d60 100644 --- a/Data/WebsiteContent.hs +++ b/Data/WebsiteContent.hs @@ -4,7 +4,6 @@ module Data.WebsiteContent ) where import ClassyPrelude.Yesod -import Text.Blaze.Html (preEscapedToMarkup) import Text.Markdown (markdown, msXssProtect, msAddHeadingId) data WebsiteContent = WebsiteContent diff --git a/Handler/Package.hs b/Handler/Package.hs index 934f191..a83558f 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -89,7 +89,10 @@ getPackageR pn = do then "You liked this!" else "I like this!" :: Text - let synopsis = metadataSynopsis metadata + let homepage = case T.strip (metadataHomepage metadata) of + x | null x -> Nothing + | otherwise -> Just x + synopsis = metadataSynopsis metadata deps = enumerate (metadataDeps metadata) revdeps = enumerate revdeps' authors = enumerate (parseIdentitiesLiberally (metadataAuthor metadata)) diff --git a/templates/package.hamlet b/templates/package.hamlet index d2847a6..d2290c6 100644 --- a/templates/package.hamlet +++ b/templates/package.hamlet @@ -8,6 +8,11 @@ $newline never #{metadataVersion metadata} #
#{synopsis}
+ \ #
+ $maybe url <- homepage
+
+ #{url}
+
$forall (i,(version, title, slug, hasHaddocks)) <- packages
$if i /= 0
, #
@@ -17,10 +22,15 @@ $newline never
#{version}
)
-