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

Merge pull request #141 from fpco/badges-cache

Browse Source 
Set Cache-Control header on badges
This commit is contained in:
Michael Snoyman 2015-11-16 18:38:00 +00:00
commit 8955a7a49f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/Package.hs
View File

@ -27,6 +27,7 @@ getPackageR = packagePage Nothing
getPackageBadgeR :: PackageName -> SnapshotBranch -> Handler TypedContent getPackageBadgeR :: PackageName -> SnapshotBranch -> Handler TypedContent
getPackageBadgeR pname branch = do getPackageBadgeR pname branch = do
cacheSeconds (3 * 60 * 60)
snapName <- maybe notFound pure =<< newestSnapshot branch snapName <- maybe notFound pure =<< newestSnapshot branch
Entity sid _ <- maybe notFound pure =<< lookupSnapshot snapName Entity sid _ <- maybe notFound pure =<< lookupSnapshot snapName
mVersion <- do mSnapPackage <- lookupSnapshotPackage sid (unPackageName pname) mVersion <- do mSnapPackage <- lookupSnapshotPackage sid (unPackageName pname)