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

Merge pull request #366 from commercialhaskell/b/revert-api-break

Browse Source 
Re-enable Accept-varying content for /snapshots
This commit is contained in:
Bryan Richter 2026-04-13 09:29:37 +03:00 committed by GitHub
commit 6e6ec93006
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
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))
. map (uncrapify now')
getAllSnapshotsR :: Handler Html
getAllSnapshotsR :: Handler TypedContent
getAllSnapshotsR = track "Handler.Snapshots.getAllSnapshotsR" $ do
(groups, Paging _ currentPage isFirstPage isLastPage) <- fetchSnapshots
defaultLayout $ do
setTitle "Stackage Server"
let snapshotsNav = $(widgetFile "snapshots-nav")
$(widgetFile "all-snapshots")
(groups, paging) <- fetchSnapshots
selectRep $ do
let Paging _ currentPage isFirstPage isLastPage = paging
provideRep $ defaultLayout $ do
setTitle "Stackage Server"
let snapshotsNav = $(widgetFile "snapshots-nav")
$(widgetFile "all-snapshots")
provideRep $ pure $ object
[ "snapshots" .= groups
, "totalCount" .= paging.totalCount
]
getApiV1SnapshotsR :: Handler Value
getApiV1SnapshotsR = track "Handler.API.getApiV1SnapshotsR" $ do