haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-06-11 08:42:32 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Re-enable Accept-varying content for /snapshots

Browse Source 
Fixes https://github.com/commercialhaskell/stackage-server/issues/365
This commit is contained in:
Bryan Richter 2026-04-13 09:01:58 +03:00
parent e84c1a82be
commit 51c2939880
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Handler/Snapshots.hs
View File

@ -72,13 +72,19 @@ fetchSnapshots = do
groupUp now' = groupBy (on (==) (.prettyDate)) groupUp now' = groupBy (on (==) (.prettyDate))
. map (uncrapify now') . map (uncrapify now')
getAllSnapshotsR :: Handler Html getAllSnapshotsR :: Handler TypedContent
getAllSnapshotsR = track "Handler.Snapshots.getAllSnapshotsR" $ do getAllSnapshotsR = track "Handler.Snapshots.getAllSnapshotsR" $ do
(groups, Paging _ currentPage isFirstPage isLastPage) <- fetchSnapshots (groups, paging) <- fetchSnapshots
defaultLayout $ do selectRep $ do
setTitle "Stackage Server" let Paging _ currentPage isFirstPage isLastPage = paging
let snapshotsNav = $(widgetFile "snapshots-nav") provideRep $ defaultLayout $ do
$(widgetFile "all-snapshots") setTitle "Stackage Server"
let snapshotsNav = $(widgetFile "snapshots-nav")
$(widgetFile "all-snapshots")
provideRep $ pure $ object
[ "snapshots" .= groups
, "totalCount" .= paging.totalCount
]
getApiV1SnapshotsR :: Handler Value getApiV1SnapshotsR :: Handler Value
getApiV1SnapshotsR = track "Handler.API.getApiV1SnapshotsR" $ do getApiV1SnapshotsR = track "Handler.API.getApiV1SnapshotsR" $ do