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 @@
#{postTitle post}, #{dateDiff now' (utctDay $ postTime post)}