From 03dd30cc59fd200649c154fb500dc69fed1fb8c8 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Mon, 2 Nov 2020 18:21:49 +0800
Subject: [PATCH 1/3] snapshots: remove the \ quote for >

---
 templates/snapshots-nav.hamlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/templates/snapshots-nav.hamlet b/templates/snapshots-nav.hamlet
index 09988ab..81a942c 100644
--- a/templates/snapshots-nav.hamlet
+++ b/templates/snapshots-nav.hamlet
@@ -7,4 +7,4 @@
   $if not isLastPage
     <span .separator>
     <a href=@{AllSnapshotsR}?page=#{currentPage + 1}>
-      older \>
+      older >

From a9933fe093efefc32f58b7789873a14d8567315f Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Mon, 2 Nov 2020 18:22:42 +0800
Subject: [PATCH 2/3] navbar: move Snapshots to the left

---
 templates/default-layout.hamlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet
index c9faf80..d98f073 100644
--- a/templates/default-layout.hamlet
+++ b/templates/default-layout.hamlet
@@ -10,9 +10,9 @@
       <div class="nav-collapse collapse">
         <ul class="nav">
             <li> <a href="/#about">About</a>
+            <li> <a href="/snapshots">Snapshots</a>
             <li> <a href="/lts">LTS</a>
             <li> <a href="/nightly">Nightly</a>
-            <li> <a href="/snapshots">Snapshots</a>
             <li> <a href="https://github.com/fpco/stackage#frequently-asked-questions">FAQ</a>
             <li> <a href="/blog">Blog</a>
 

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 3/3] 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}#