yogsototh/stackage-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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