stackage-diff: add a previous diff link

allowing navigate back to earlier consecutive diffs

Author: juhp

src/Handler/StackageHome.hs

@@ -53,7 +53,8 @@ instance ToJSON SnapshotInfo where
 getStackageDiffR :: SnapName -> SnapName -> Handler TypedContent
 getStackageDiffR name1 name2 = track "Handler.StackageHome.getStackageDiffR" $ do
     cacheSeconds $ 60 * 60 * 48
-    Entity sid1 _ <- lookupSnapshot name1 >>= maybe notFound return
+    Entity sid1 prevSnap <- lookupSnapshot name1 >>= maybe notFound return
+    prevprevSnapName <- fromMaybe name1 . map snd <$> snapshotBefore (snapshotName prevSnap)
     Entity sid2 _ <- lookupSnapshot name2 >>= maybe notFound return
     snapDiff <- getSnapshotDiff sid1 sid2
     selectRep $ do

templates/stackage-diff.hamlet

@@ -1,5 +1,10 @@
 <h1>Compare Stackage snapshots
 
+$if prevprevSnapName /= name2
+  <div .snapshot-nav>
+    <a href=@{StackageDiffR prevprevSnapName name2}>
+      \< previous diff
+
 <div .container .content>
   <div .packages>
     <table .table>