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

Restyle "recommended snapshots" list on homepage (closes #19)

Browse Source
This commit is contained in:
Chris Done 2014-11-13 14:52:22 +01:00
parent de2fb0f12f
commit d705d63073
3 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Handler/Home.hs
View File

@ -44,14 +44,16 @@ getHomeR = do
min' <- handlerToWidget $ linkFor $ name "inclusive"
when (isJust mex || isJust min')
[whamlet|
<dt>#{asHtml title}
<dd>
$maybe ex <- mex
<a href=@{StackageHomeR ex}>exclusive
$if isJust mex && isJust min'
\ | #
$maybe in <- min'
<a href=@{StackageHomeR in}>inclusive
<tr>
<td>
#{asHtml title}
<td>
$maybe ex <- mex
<a href=@{StackageHomeR ex}>exclusive
$if isJust mex && isJust min'
<td>
$maybe in <- min'
<a href=@{StackageHomeR in}>inclusive
|]
where
name suffix = concat ["unstable-", short, "-", suffix]

2
templates/homepage.hamlet
View File

@ -3,7 +3,7 @@
Stackage is an infrastructure to create stable builds
of complete package sets. Think “stable Hackage”.
<h2 .recommended-snapshots>Recommended Snapshots
<dl .snapshots>
<table .snapshots>
^{addSnapshot "GHC 7.8" "ghc78"}
^{addSnapshot "GHC 7.8 + Haskell Platform" "ghc78hp"}
^{addSnapshot "GHC 7.6" "ghc76"}

9
templates/homepage.lucius
View File

@ -5,6 +5,7 @@ h2 {
.recommended-snapshots {
margin-top: 30px;
margin-bottom: 20px;
}
.how-stackage-works {
@ -14,11 +15,9 @@ h2 {
.snapshots {
margin-left: 0;
padding-left: 0;
li {
list-style-type: none;
margin-left: 0;
padding-left: 0;
font-weight: bold;
td {
padding: 0 0.25em 0.25em 0.25em;
a { font-weight: bold }
}
}