From 51c2939880f984e4e66d4c268fab904dafe6362e Mon Sep 17 00:00:00 2001
From: Bryan Richter <bryan@haskell.foundation>
Date: Mon, 13 Apr 2026 09:01:58 +0300
Subject: [PATCH] Re-enable Accept-varying content for /snapshots

Fixes https://github.com/commercialhaskell/stackage-server/issues/365
---
 src/Handler/Snapshots.hs | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/src/Handler/Snapshots.hs b/src/Handler/Snapshots.hs
index 9be6659..5b0e91a 100644
--- a/src/Handler/Snapshots.hs
+++ b/src/Handler/Snapshots.hs
@@ -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