From a2697b1e2709c917b0cc93fbb7aa234c4f01041c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 27 Nov 2014 13:32:24 +0200
Subject: [PATCH] Nicer bundle attachment names

---
 Handler/StackageIndex.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Handler/StackageIndex.hs b/Handler/StackageIndex.hs
index d5c558c..dffb1dc 100644
--- a/Handler/StackageIndex.hs
+++ b/Handler/StackageIndex.hs
@@ -21,13 +21,14 @@ getStackageBundleR :: SnapSlug -> Handler TypedContent
 getStackageBundleR slug = do
     Entity _ stackage <- runDB $ getBy404 $ UniqueSnapshot slug
     let ident = stackageIdent stackage
+        slug = stackageSlug stackage
     msrc <- storeRead $ SnapshotBundle ident
     case msrc of
         Nothing -> notFound
         Just src -> do
             addHeader "content-disposition" $ mconcat
                 [ "attachment; filename=\"bundle-"
-                , toPathPiece ident
+                , toPathPiece slug
                 , ".tar.gz\""
                 ]
             respondSource "application/x-gzip" $ mapOutput (Chunk . toBuilder) src