haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 15:11:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

add renderNoPackages to handle plural, and append colon

Browse Source
This commit is contained in:
Jens Petersen 2016-02-19 20:38:15 +09:00
parent df90a48756
commit 053c2e0631
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/Package.hs
View File

@ -7,6 +7,7 @@ module Handler.Package
, getPackageSnapshotsR , getPackageSnapshotsR
, packagePage , packagePage
, getPackageBadgeR , getPackageBadgeR
, renderNoPackages
) where ) where
import Data.Char import Data.Char
@ -226,3 +227,7 @@ getPackageSnapshotsR pn =
$(combineStylesheets 'StaticR $(combineStylesheets 'StaticR
[css_font_awesome_min_css]) [css_font_awesome_min_css])
$(widgetFile "package-snapshots")) $(widgetFile "package-snapshots"))
renderNoPackages :: Int -> Text
renderNoPackages n =
T.pack $ show n ++ " package" ++ (if n == 1 then "" else "s")

4
templates/package.hamlet
View File

@ -122,7 +122,7 @@ $if not (LT.null (LT.renderHtml (packageChangelog package)))
<div .row> <div .row>
<div .span12> <div .span12>
<div .dependencies #dependencies> <div .dependencies #dependencies>
Depends on Depends on:
<div .dep-list> <div .dep-list>
$forall (i,(name, range)) <- deps $forall (i,(name, range)) <- deps
$if i /= 0 $if i /= 0
@ -131,7 +131,7 @@ $if not (LT.null (LT.renderHtml (packageChangelog package)))
#{name} #{name}
$if not $ null revdeps $if not $ null revdeps
<div .reverse-dependencies .expanding #reverse-dependencies> <div .reverse-dependencies .expanding #reverse-dependencies>
Used by #{length revdeps} packages: Used by #{renderNoPackages $ length revdeps}:
<div .dep-list> <div .dep-list>
$forall (i,(name, range)) <- revdeps $forall (i,(name, range)) <- revdeps
$if i /= 0 $if i /= 0