haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +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
, packagePage
, getPackageBadgeR
, renderNoPackages
) where
import Data.Char
@ -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")

4
templates/package.hamlet
View File

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