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

put latest nightly and lts in News: drop rows and Recent Snapshots

Browse Source
This commit is contained in:
Jens Petersen 2020-10-31 19:56:36 +08:00
parent 7bd8968c2b
commit e086b058f6
3 changed files with 21 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Handler/Home.hs
View File

@ -30,9 +30,12 @@ getHomeR :: Handler Html
getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do
cacheSeconds $ 60 * 60 cacheSeconds $ 60 * 60
now' <- getCurrentTime now' <- getCurrentTime
(map entityVal -> snapshots) <- (map entityVal -> nightly) <-
getSnapshots Nothing snapshotsPerPage 0 getSnapshots (Just NightlyBranch) 1 0
let groups = groupUp now' snapshots let latestNightly = groupUp now' nightly
(map entityVal -> lts) <-
getSnapshots (Just LtsBranch) 1 0
let latestLts = groupUp now' lts
latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle
latestLtsByGhc <- getLatestLtsByGhc latestLtsByGhc <- getLatestLtsByGhc
@ -49,9 +52,6 @@ getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do
groupUp now' = groupBy (on (==) (\(_,_,uploaded) -> uploaded)) groupUp now' = groupBy (on (==) (\(_,_,uploaded) -> uploaded))
. map (uncrapify now') . map (uncrapify now')
snapshotsPerPage :: Int
snapshotsPerPage = 8
getAuthorsR :: Handler Html getAuthorsR :: Handler Html
getAuthorsR = contentHelper "Library Authors" wcAuthors getAuthorsR = contentHelper "Library Authors" wcAuthors

2
templates/default-layout.hamlet
View File

@ -10,7 +10,7 @@
<li> <a href="/nightly">Nightly</a> <li> <a href="/nightly">Nightly</a>
<li> <a href="/snapshots">Snapshots</a> <li> <a href="/snapshots">Snapshots</a>
<li> <a href="https://github.com/fpco/stackage#frequently-asked-questions">FAQ</a> <li> <a href="https://github.com/fpco/stackage#frequently-asked-questions">FAQ</a>
<li> <a href="/blog">News</a> <li> <a href="/blog">Blog</a>
$maybe msg <- mmsg $maybe msg <- mmsg
<div .container> <div .container>

32
templates/home.hamlet
View File

@ -1,5 +1,5 @@
<div .container> <div .container>
<div .row .header> <div .header>
<div .span5> <div .span5>
<img src=@{StaticR img_logo_png} .logo> <img src=@{StaticR img_logo_png} .logo>
<div .span3> <div .span3>
@ -12,7 +12,7 @@
<label class="checkbox exact-lookup" for="exact" title="Only find identifiers matching your search term precisely"> <label class="checkbox exact-lookup" for="exact" title="Only find identifiers matching your search term precisely">
<input type="checkbox" name="exact" id="exact"> <input type="checkbox" name="exact" id="exact">
Exact lookup Exact lookup
<div .row> <div>
<div .span6> <div .span6>
<h3>Stable Haskell package sets <h3>Stable Haskell package sets
<ul> <ul>
@ -20,13 +20,22 @@
<li><a href="https://haskellstack.org">stack</a> makes using Stackage easy <li><a href="https://haskellstack.org">stack</a> makes using Stackage easy
<li>Stackage is a community project: <a href="https://github.com/fpco/stackage/blob/master/MAINTAINERS.md#adding-a-package"><b>how to add packages to Stackage</b></a> <li>Stackage is a community project: <a href="https://github.com/fpco/stackage/blob/master/MAINTAINERS.md#adding-a-package"><b>how to add packages to Stackage</b></a>
<div .span6> <div .span6>
<h3>Recent News <h3>News
<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 $maybe post <- mrecentBlog
<p> <p>
<a href=@{BlogPostR (postYear post) (postMonth post) (postSlug post)}>#{postTitle post}</a>, <a href=@{BlogPostR (postYear post) (postMonth post) (postSlug post)}>#{postTitle post}</a>,
<abbr title=#{show $ postTime post}>#{dateDiff now' (utctDay $ postTime post)}</abbr> <abbr title=#{show $ postTime post}>#{dateDiff now' (utctDay $ postTime post)}</abbr>
<p><a href="blog">other posts</a>
<div .row>
<div .span6> <div .span6>
<h3> <h3>
Latest LTS release per GHC version Latest LTS release per GHC version
@ -36,19 +45,6 @@
<a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for #{ghc}# <a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for #{ghc}#
\, published #{dateDiff now' date} \, published #{dateDiff now' date}
<div .span6>
<h3>Recent Snapshots
$forall stackages <- groups
<ul .snapshots>
$forall (ident, title, uploaded) <- stackages
<li>
<strong>
<a href=@{SnapshotR ident StackageHomeR}>#{title}</a>, #{uploaded}
<p>
<a href=@{AllSnapshotsR}>
Snapshots archive
<div .row>
<div .span6> <div .span6>
<h3 id="about"> <h3 id="about">
About Stackage About Stackage