From ffe944ae7445cf151f7e9ad080a13a4e1e69d480 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Fri, 26 Mar 2021 12:04:07 +0800
Subject: [PATCH 1/3] stack: bump to final lts-16

---
 stack.yaml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stack.yaml b/stack.yaml
index b23373d..5a36ff8 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -1,4 +1,4 @@
-resolver: lts-16.20
+resolver: lts-16.31
 extra-deps:
 - barrier-0.1.1@sha256:2021f84c3aba67bb635d72825d3bc0371942444dc014bc307b875071e29eea98,3931
 - hackage-security-0.6.0.1

From 070cbc6bf265ae6ac194af9fe4393317b8e54e33 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Fri, 26 Mar 2021 12:04:38 +0800
Subject: [PATCH 2/3] Home: only show News if post is from the last ~6 months

---
 src/Handler/Home.hs   | 4 ++--
 templates/home.hamlet | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index 27a381c..1a0ef52 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -35,8 +35,8 @@ getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do
     let latestNightly = groupUp now' nightly
     latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle
     latestLtsByGhc <- getLatestLtsByGhc
-
-    mrecentBlog <- headMay <$> getPosts
+    let sixMonthsAgo = addUTCTime (-180 * nominalDay) now'
+    mrecentBlog <- headMay . filter (\p -> postTime p > sixMonthsAgo) <$> getPosts
 
     defaultLayout $ do
         setTitle "Stackage Server"
diff --git a/templates/home.hamlet b/templates/home.hamlet
index c273ab1..addd981 100644
--- a/templates/home.hamlet
+++ b/templates/home.hamlet
@@ -20,8 +20,8 @@
               <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><a href="https://haskellstack.org">stack</a> makes using Stackage easy
         <div .span6>
-            <h3>News</h3>
-              $maybe post <- mrecentBlog
+            $maybe post <- mrecentBlog
+              <h3>News</h3>
                 <p>
                   <a href=@{BlogPostR (postYear post) (postMonth post) (postSlug post)}>#{postTitle post}</a>,
                   <abbr title=#{show $ postTime post}>#{dateDiff now' (utctDay $ postTime post)}</abbr>

From a585735b653e52f47ef8475a0155c97ae073b880 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Fri, 26 Mar 2021 12:15:55 +0800
Subject: [PATCH 3/3] README: mention yesod devel for simple testing with
 sqlite

---
 README.md | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index be3ca04..727b0d6 100644
--- a/README.md
+++ b/README.md
@@ -1,5 +1,4 @@
-stackage-server
-===============
+# stackage-server
 
 ![Runtime image](https://github.com/fpco/stackage-server/workflows/Runtime%20image/badge.svg)
 
@@ -16,6 +15,13 @@ Build locally by passing the `dev` flag to it:
 $ stack build . --flag stackage-server:dev
 ```
 
+## Simple testing with sqlite:
+To test the UI without real data, just run:
+```
+$ yesod devel
+```
+
+## Testing with postgresql
 Now, initially you need to run the cron job to create and populate the database:
 
 ``` shellsession