haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added /download/snapshots.json

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-01 11:39:24 +03:00
parent f03ada0f81
commit 511b1c21e9
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Download.hs
View File

@ -1,5 +1,6 @@
module Handler.Download module Handler.Download
( getDownloadR ( getDownloadR
, getDownloadSnapshotsJsonR
, getDownloadLtsSnapshotsJsonR , getDownloadLtsSnapshotsJsonR
, getGhcMajorVersionR , getGhcMajorVersionR
, getDownloadGhcLinksR , getDownloadGhcLinksR
@ -47,6 +48,9 @@ dropOldMinors (l@(Lts x _ _):rest) =
where where
sameMinor (Lts y _ _) = x == y sameMinor (Lts y _ _) = x == y
getDownloadSnapshotsJsonR :: Handler Value
getDownloadSnapshotsJsonR = getDownloadLtsSnapshotsJsonR
getDownloadLtsSnapshotsJsonR :: Handler Value getDownloadLtsSnapshotsJsonR :: Handler Value
getDownloadLtsSnapshotsJsonR = do getDownloadLtsSnapshotsJsonR = do
(mlatestNightly, ltses) <- runDB $ (,) (mlatestNightly, ltses) <- runDB $ (,)

1
config/routes
View File

@ -60,5 +60,6 @@
/package-counts PackageCountsR GET /package-counts PackageCountsR GET
/download DownloadR GET /download DownloadR GET
/download/snapshots.json DownloadSnapshotsJsonR GET
/download/lts-snapshots.json DownloadLtsSnapshotsJsonR GET /download/lts-snapshots.json DownloadLtsSnapshotsJsonR GET
/download/#SupportedArch/#Text DownloadGhcLinksR GET /download/#SupportedArch/#Text DownloadGhcLinksR GET