From cc1dc6ffe56b67312746510ab1c1565fac690dcb Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sat, 28 Jan 2017 19:30:08 +0200
Subject: [PATCH] Link to FAQ; give age of LTS snapshots

---
 Stackage/Database.hs  |  6 +++---
 templates/home.hamlet | 14 ++++++++++----
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index 54d7fa6..bba0a20 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -790,7 +790,7 @@ getPackageCount :: GetStackageDatabase m
 getPackageCount sid = run $ count [SnapshotPackageSnapshot ==. sid]
 
 getLatestLtsByGhc :: GetStackageDatabase m
-                  => m [(Int, Int, Text)]
+                  => m [(Int, Int, Text, Day)]
 getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do
     E.select $ E.from $ \(lts `E.InnerJoin` snapshot) -> do
         E.on $ lts E.^. LtsSnap E.==. snapshot E.^. SnapshotId
@@ -799,9 +799,9 @@ getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do
         return (lts, snapshot)
   where
     toTuple (Entity _ lts, Entity _ snapshot) =
-        (ltsMajor lts, ltsMinor lts, snapshotGhc snapshot)
+        (ltsMajor lts, ltsMinor lts, snapshotGhc snapshot, snapshotCreated snapshot)
 
     dedupe [] = []
     dedupe (x:xs) = x : dedupe (dropWhile (\y -> thd x == thd y) xs)
 
-    thd (_, _, x) = x
+    thd (_, _, x, _) = x
diff --git a/templates/home.hamlet b/templates/home.hamlet
index 00d272a..865635e 100644
--- a/templates/home.hamlet
+++ b/templates/home.hamlet
@@ -33,11 +33,16 @@
                 bleeding-edge nightly release.
 
             <p>
-                <a href="https://www.stackage.org/lts">
+                <a href="/lts">
                     LTS Haskell
             <p>
-                <a href="https://www.stackage.org/nightly">
+                <a href="/nightly">
                     Stackage Nightly
+
+            <p>
+                Have more questions? We have a #
+                <a href="https://github.com/fpco/stackage#frequently-asked-questions">FAQ section on Github
+                .
             <h3>
                 Related initiatives
             <p>
@@ -51,9 +56,10 @@
             <h3>
                 Latest LTS per GHC version
             <ul>
-                $forall (major, minor, ghc) <- latestLtsByGhc
+                $forall (major, minor, ghc, date) <- latestLtsByGhc
                   <li>
-                    <a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for GHC #{ghc}
+                    <a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for GHC #{ghc}#
+                    \, published #{dateDiff now' date}
             <h3>
                 Package Maintainers
             <p>