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] 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>