diff --git a/Handler/Package.hs b/Handler/Package.hs
index 0f2d869..df5ef75 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -27,6 +27,7 @@ getPackageR = packagePage Nothing
 
 getPackageBadgeR :: PackageName -> SnapshotBranch -> Handler TypedContent
 getPackageBadgeR pname branch = do
+    cacheSeconds (3 * 60 * 60)
     snapName     <- maybe notFound pure =<< newestSnapshot branch
     Entity sid _ <- maybe notFound pure =<< lookupSnapshot snapName
     mVersion <- do mSnapPackage <- lookupSnapshotPackage sid (unPackageName pname)