From ad053dc101de01f0e6cfe0977a69781f066b67be Mon Sep 17 00:00:00 2001
From: Konstantin Zudov <co@zudov.me>
Date: Mon, 16 Nov 2015 13:34:59 +0200
Subject: [PATCH] Set Cache-Control header on badges

Since github caches external resource we need to indicate that this
badge is supposed to be changing.

https://github.com/github/markup/issues/224
---
 Handler/Package.hs | 1 +
 1 file changed, 1 insertion(+)

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)