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

Allow customizing entire badge label

Browse Source 
This fixes #147.
This commit is contained in:
Taylor Fausak 2016-01-31 22:03:03 -06:00
parent de9e250b4e
commit d2caecd432
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" Nothing -> renderBadge (style & right .~ lightgray) badgeLabel "not available"
Just (Version x) -> renderBadge style badgeLabel x Just (Version x) -> renderBadge style badgeLabel x
where where
badgeLabel = fromMaybe "stackage" mLabel <> " " <> badgeSnapName snapName badgeLabel = fromMaybe ("stackage " <> badgeSnapName snapName) mLabel
badgeSnapName (SNNightly _) = "nightly" badgeSnapName (SNNightly _) = "nightly"
badgeSnapName (SNLts x _) = "lts-" <> tshow x badgeSnapName (SNLts x _) = "lts-" <> tshow x