From a726444afd145787bd5e2f2b6e98a1a7b48abbd3 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Mon, 2 Nov 2020 18:23:15 +0800
Subject: [PATCH] home: move recent snapshots from News to Releases/ghc section

(rendering untested)
---
 src/Handler/Home.hs   |  3 ---
 templates/home.hamlet | 17 +++++------------
 2 files changed, 5 insertions(+), 15 deletions(-)

diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index 5369d43..27a381c 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -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
 
diff --git a/templates/home.hamlet b/templates/home.hamlet
index 94c2150..1c71fba 100644
--- a/templates/home.hamlet
+++ b/templates/home.hamlet
@@ -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}#