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

Change "non available" badge color to lightgray

Browse source 
The 'red' badge looks like "Something is wrong or broken", while
the 'lightgray' is pretty neutral.
This commit is contained in:
Konstantin Zudov 2015-10-18 17:23:59 +03:00
parent 66c420c0ef
commit 492eaf0444
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

@ -35,7 +35,7 @@ getPackageBadgeR pname branch = do
renderStackageBadge :: SnapName -> Maybe Version -> LByteString
renderStackageBadge (badgeLabel -> label) = \case
Nothing -> renderBadge (flat & right .~ red) label "not available"
Nothing -> renderBadge (flat & right .~ lightgray) label "not available"
Just (Version x) -> renderBadge flat label x
badgeLabel :: SnapName -> Text