haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

home: move recent snapshots from News to Releases/ghc section

Browse Source 
(rendering untested)
This commit is contained in:
Jens Petersen 2020-11-02 18:23:15 +08:00
parent a9933fe093
commit a726444afd
2 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Home.hs
View File

@ -33,9 +33,6 @@ getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do
(map entityVal -> nightly) <-
getSnapshots (Just NightlyBranch) 1 0
let latestNightly = groupUp now' nightly
(map entityVal -> lts) <-
getSnapshots (Just LtsBranch) 1 0
let latestLts = groupUp now' lts
latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle
latestLtsByGhc <- getLatestLtsByGhc

17
templates/home.hamlet
View File

@ -21,25 +21,18 @@
<li><a href="https://haskellstack.org">stack</a> makes using Stackage easy
<div .span6>
<h3>News</h3>
<ul .snapshots>
$forall stackages <- latestNightly
$forall (ident, title, uploaded) <- stackages
<li>
<strong>
<a href=@{SnapshotR ident StackageHomeR}>#{title}</a>, #{uploaded}
$forall stackages <- latestLts
$forall (ident, title, uploaded) <- stackages
<li>
<strong>
<a href=@{SnapshotR ident StackageHomeR}>#{title}</a>, #{uploaded}
$maybe post <- mrecentBlog
<p>
<a href=@{BlogPostR (postYear post) (postMonth post) (postSlug post)}>#{postTitle post}</a>,
<abbr title=#{show $ postTime post}>#{dateDiff now' (utctDay $ postTime post)}</abbr>
<div .span6>
<h3>
Latest LTS release per GHC version
Latest releases per GHC version
<ul>
$forall stackages <- latestNightly
$forall (ident, title, uploaded) <- stackages
<li>
<a href=@{SnapshotR ident StackageHomeR}>#{title}</a>, #{uploaded}
$forall (major, minor, ghc, date) <- latestLtsByGhc
<li>
<a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for #{ghc}#