From 4a09d4bc4a8902bf06cf77e6aa58ead5097620e9 Mon Sep 17 00:00:00 2001
From: Matthew Leon <ml@matthewleon.com>
Date: Tue, 22 Aug 2017 19:17:37 +0100
Subject: [PATCH 1/2] Provide a link to offline snapshot doc archive

---
 templates/stackage-home.hamlet | 1 +
 1 file changed, 1 insertion(+)

diff --git a/templates/stackage-home.hamlet b/templates/stackage-home.hamlet
index ac7807a..ebdea4f 100644
--- a/templates/stackage-home.hamlet
+++ b/templates/stackage-home.hamlet
@@ -28,6 +28,7 @@ $newline never
 
     <p>
         <a href=@{SnapshotR name DocsR}>View documentation by modules
+        <a href="https://s3.amazonaws.com/haddock.stackage.org/#{toPathPiece name}/bundle.tar.xz">Download documentation archive
 
 <div .container .content>
     <div .packages>

From a95dfbe3962513bb49ea0060aa8c0c787a4d0e9a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 18 Sep 2017 13:42:46 +0300
Subject: [PATCH 2/2] RSS feed: include package links

---
 Handler/Feed.hs | 31 ++++++++++++++++++++-----------
 1 file changed, 20 insertions(+), 11 deletions(-)

diff --git a/Handler/Feed.hs b/Handler/Feed.hs
index 1e301c2..a40c8fc 100644
--- a/Handler/Feed.hs
+++ b/Handler/Feed.hs
@@ -58,8 +58,9 @@ getContent sid2 snap = do
         Nothing -> return "No previous snapshot found for comparison"
         Just (sid1, name1) -> do
             snapDiff <- getSnapshotDiff sid1 sid2
-            return
-                [shamlet|
+            let name2 = snapshotName snap
+            withUrlRenderer
+                [hamlet|
                   <p>Difference between #{prettyNameShort name1} and #{prettyNameShort $ snapshotName snap}
                   <table border=1 cellpadding=5>
                     <thead>
@@ -68,17 +69,25 @@ getContent sid2 snap = do
                         <th align=right>Old
                         <th align=left>New
                     <tbody>
-                      $forall (PackageName name, VersionChange change) <- toDiffList snapDiff
+                      $forall (pkgname@(PackageName name), VersionChange change) <- toDiffList snapDiff
                         <tr>
                           <th align=right>#{name}
                           $case change
-                            $of This (Version old)
-                              <td align=right>#{old}
-                              <td>
-                            $of That (Version new)
+                            $of This old
                               <td align=right>
-                              <td>#{new}
-                            $of These (Version old) (Version new)
-                              <td align=right>#{old}
-                              <td>#{new}
+                                <a href=@{packageUrl name1 pkgname old}#changes>
+                                  #{old}
+                              <td>
+                            $of That new
+                              <td align=right>
+                              <td>
+                                <a href=@{packageUrl name2 pkgname new}#changes>
+                                  #{new}
+                            $of These old new
+                              <td align=right>
+                                <a href=@{packageUrl name1 pkgname old}#changes>
+                                  #{old}
+                              <td>
+                                <a href=@{packageUrl name2 pkgname new}#changes>
+                                  #{new}
                 |]