From cab4e08fcc25b8734fc46730598ff89302247fed Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 11 Dec 2014 12:19:00 +0200
Subject: [PATCH] ?download=true on cabal.config

---
 Handler/StackageHome.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs
index 7bf213c..4927049 100644
--- a/Handler/StackageHome.hs
+++ b/Handler/StackageHome.hs
@@ -58,6 +58,11 @@ getStackageCabalConfigR :: SnapSlug -> Handler TypedContent
 getStackageCabalConfigR slug = do
     Entity sid _ <- runDB $ getBy404 $ UniqueSnapshot slug
     render <- getUrlRender
+
+    mdownload <- lookupGetParam "download"
+    when (mdownload == Just "true") $
+        addHeader "Content-Disposition" "attachment; filename=cabal.config"
+
     respondSourceDB typePlain $ stream render sid
   where
     stream render sid =