haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

stackage-diff: add a previous diff link

Browse Source 
allowing navigating back to earlier consecutive diffs

Arguably we could also navigate name1 and name2 separately

Thanks to @chreekat for reviewing and improving the code (#340)
This commit is contained in:
Jens Petersen 2025-02-02 23:01:21 +08:00
parent ec5d5e7b92
commit c4c8241fc3
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/StackageHome.hs
View File

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

5
templates/stackage-diff.hamlet
View File

@ -1,5 +1,10 @@
<h1>Compare Stackage snapshots <h1>Compare Stackage snapshots
$maybe prevprev <- mprevprevSnapName
<div .snapshot-nav>
<a href=@{StackageDiffR prevprev name1}>
\< previous diff
<div .container .content> <div .container .content>
<div .packages> <div .packages>
<table .table> <table .table>