haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-29 04:10:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

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 :: SnapName -> Maybe Version -> LByteString
renderStackageBadge (badgeLabel -> label) = \case 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 Just (Version x) -> renderBadge flat label x
badgeLabel :: SnapName -> Text badgeLabel :: SnapName -> Text