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

Add /api/v1/snapshot

Browse Source
This commit is contained in:
Bryan Richter 2025-06-17 16:23:45 +03:00
parent ba3aa93423
commit a2cc25d6f0
No known key found for this signature in database
GPG Key ID: B202264020068BFB
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
config/routes
View File

@ -13,6 +13,8 @@
/snapshot/#Text/*Texts OldSnapshotR GET /snapshot/#Text/*Texts OldSnapshotR GET
/api/v1/snapshot/#SnapName ApiV1SnapshotR GET
!/#SnapName SnapshotR: !/#SnapName SnapshotR:
/ StackageHomeR GET / StackageHomeR GET
/cabal.config StackageCabalConfigR GET /cabal.config StackageCabalConfigR GET

7
src/Handler/StackageHome.hs
View File

@ -6,6 +6,7 @@
{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE ViewPatterns #-}
module Handler.StackageHome module Handler.StackageHome
( getStackageHomeR ( getStackageHomeR
, getApiV1SnapshotR
, getStackageDiffR , getStackageDiffR
, getStackageCabalConfigR , getStackageCabalConfigR
, getDocsR , getDocsR
@ -19,6 +20,12 @@ import Import
import Stackage.Database import Stackage.Database
import Stackage.Snapshot.Diff import Stackage.Snapshot.Diff
getApiV1SnapshotR :: SnapName -> Handler Value
getApiV1SnapshotR name = track "Handler.StackageHome.getApiV1SnapshotR" $ do
Entity sid snapshot <- lookupSnapshot name >>= maybe notFound return
packages <- getPackagesForSnapshot sid
pure $ toJSON $ SnapshotInfo snapshot packages
getStackageHomeR :: SnapName -> Handler TypedContent getStackageHomeR :: SnapName -> Handler TypedContent
getStackageHomeR name = getStackageHomeR name =
track "Handler.StackageHome.getStackageHomeR" $ do track "Handler.StackageHome.getStackageHomeR" $ do