From 2b731f15fcf57233196be8fc6da5d198b06e019a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 25 Aug 2014 10:10:22 +0300
Subject: [PATCH] Links for inclusive/exclusive Wiki page #3

Pinging @chrisdone
---
 Handler/StackageHome.hs        | 3 +++
 templates/homepage.hamlet      | 2 ++
 templates/stackage-home.hamlet | 3 +++
 3 files changed, 8 insertions(+)

diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs
index 3a19caa..92fd432 100644
--- a/Handler/StackageHome.hs
+++ b/Handler/StackageHome.hs
@@ -11,6 +11,9 @@ getStackageHomeR ident = do
         return (stackage, user)
 
     hasBundle <- storeExists $ SnapshotBundle ident
+    let isInclusiveOrExclusive =
+            "inclusive" `isSuffixOf` stackageTitle stackage ||
+            "exclusive" `isSuffixOf` stackageTitle stackage
     defaultLayout $ do
         setTitle $ toHtml $ stackageTitle stackage
         $(widgetFile "stackage-home")
diff --git a/templates/homepage.hamlet b/templates/homepage.hamlet
index c40b175..f9879ac 100644
--- a/templates/homepage.hamlet
+++ b/templates/homepage.hamlet
@@ -8,6 +8,8 @@
             <li>
                 <a href=@{StackageHomeR ident}>
                     #{title}
+    <p>
+        <a href="https://github.com/fpco/stackage/wiki/Stackage-Server-FAQ#whats-the-difference-between-inclusive-and-exclusive-snapshots">What's the difference between inclusive and exclusive snapshots?</a>
     <h2 .getting-started>
         Getting Started
     <p>For prerequisites and compiler installation instructions, please see the wiki page <a href="https://github.com/fpco/stackage/wiki/Preparing-your-system-to-use-Stackage">Preparing your system to use Stackage</a>.
diff --git a/templates/stackage-home.hamlet b/templates/stackage-home.hamlet
index 5bfdff4..f5bad40 100644
--- a/templates/stackage-home.hamlet
+++ b/templates/stackage-home.hamlet
@@ -16,6 +16,9 @@ $newline never
     <p>
         <pre>
             remote-repo: stackage:@{StackageHomeR ident}
+    $if isInclusiveOrExclusive
+        <p>
+            <a href="https://github.com/fpco/stackage/wiki/Stackage-Server-FAQ#whats-the-difference-between-inclusive-and-exclusive-snapshots">What's the difference between inclusive and exclusive snapshots?</a>
     <h3>
         Setup guide #
             <small>