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

Nicer bundle attachment names

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-27 13:32:24 +02:00
parent 4b4d8a56c3
commit a2697b1e27
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/StackageIndex.hs
View File

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