diff --git a/Handler/Package.hs b/Handler/Package.hs index b798e8b..5f5f392 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -7,6 +7,7 @@ module Handler.Package , getPackageSnapshotsR , packagePage , getPackageBadgeR + , renderNoPackages ) where import Data.Char @@ -161,13 +162,13 @@ data Identifier -- parseIdentitiesLiberally :: Text -> [Identifier] parseIdentitiesLiberally = - filter (not . empty) . + filter (not . emptyPlainText) . map strip . concatPlains . map parseChunk . T.split (== ',') - where empty (PlainText e) = T.null e - empty _ = False + where emptyPlainText (PlainText e) = T.null e + emptyPlainText _ = False strip (PlainText t) = PlainText (T.strip t) strip x = x concatPlains = go @@ -226,3 +227,7 @@ getPackageSnapshotsR pn = $(combineStylesheets 'StaticR [css_font_awesome_min_css]) $(widgetFile "package-snapshots")) + +renderNoPackages :: Int -> Text +renderNoPackages n = + T.pack $ show n ++ " package" ++ (if n == 1 then "" else "s") diff --git a/Stackage/Database.hs b/Stackage/Database.hs index a6ef073..a1da774 100644 --- a/Stackage/Database.hs +++ b/Stackage/Database.hs @@ -470,7 +470,7 @@ snapshotTitle :: Snapshot -> Text snapshotTitle s = prettyName (snapshotName s) (snapshotGhc s) prettyName :: SnapName -> Text -> Text -prettyName name ghc = concat [prettyNameShort name, " - GHC ", ghc] +prettyName name ghc = concat [prettyNameShort name, " (ghc-", ghc, ")"] prettyNameShort :: SnapName -> Text prettyNameShort name = diff --git a/templates/package.hamlet b/templates/package.hamlet index 7ce5c34..9118d7b 100644 --- a/templates/package.hamlet +++ b/templates/package.hamlet @@ -15,9 +15,7 @@ $newline never #{pn}

- #{pn} # - - #{displayedVersion} # + #{pn}

#{synopsis} \ # @@ -25,11 +23,19 @@ $newline never #{url} - $forall (idx, li) <- enumerate latests - $if idx /= 0 - , # - - #{prettyName (liSnapName li) (liGhc li)} (#{liVersion li}) + $forall li <- latests +

+ + #{prettyName (liSnapName li) (liGhc li)} + \: # + + #{liVersion li} +
+ + Hackage + \: # + + #{displayedVersion} # $if null latests

@@ -41,8 +47,7 @@ $newline never

- - #{packageLicenseName package} licensed # + #{packageLicenseName package} licensed # $if null maintainers and maintained # $if not (null authors) @@ -117,7 +122,7 @@ $if not (LT.null (LT.renderHtml (packageChangelog package)))
- Depends on + Depends on:
$forall (i,(name, range)) <- deps $if i /= 0 @@ -126,7 +131,7 @@ $if not (LT.null (LT.renderHtml (packageChangelog package))) #{name} $if not $ null revdeps
- Used by + Used by #{renderNoPackages $ length revdeps}:
$forall (i,(name, range)) <- revdeps $if i /= 0 diff --git a/templates/package.lucius b/templates/package.lucius index cc49a22..167973a 100644 --- a/templates/package.lucius +++ b/templates/package.lucius @@ -11,9 +11,8 @@ h3 { width: auto; margin-left: auto; } -.latest-version { - color: #777; - font-size: 24.5px; +.version { + font-weight: bold; } #disqus_thread { margin-top: 2em;