Links for inclusive/exclusive Wiki page #3

Pinging @chrisdone

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")

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

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>