Allow customizing entire badge label

This fixes #147.
2016-01-31 22:03:03 -06:00 · 2016-01-31 22:03:03 -06:00 · d2caecd432
commit d2caecd432
parent de9e250b4e
1 changed files with 1 additions and 1 deletions
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@ -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