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

Merge pull request #149 from tfausak/patch-1

Browse Source 
Allow customizing entire badge label
This commit is contained in:
Michael Snoyman 2016-02-01 08:58:12 +02:00
commit 0e46ca9964
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Package.hs
View File

@ -51,7 +51,7 @@ renderStackageBadge style mLabel snapName = \case
Nothing -> renderBadge (style & right .~ lightgray) badgeLabel "not available"
Just (Version x) -> renderBadge style badgeLabel x
where
badgeLabel = fromMaybe "stackage" mLabel <> " " <> badgeSnapName snapName
badgeLabel = fromMaybe ("stackage " <> badgeSnapName snapName) mLabel
badgeSnapName (SNNightly _) = "nightly"
badgeSnapName (SNLts x _) = "lts-" <> tshow x