From d2caecd432f31ca7f513ce22a345802df9a226fa Mon Sep 17 00:00:00 2001 From: Taylor Fausak Date: Sun, 31 Jan 2016 22:03:03 -0600 Subject: [PATCH] Allow customizing entire badge label This fixes #147. --- Handler/Package.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Package.hs b/Handler/Package.hs index df5ef75..b798e8b 100644 --- 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