haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 15:11:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

?download=true on cabal.config

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-11 12:19:00 +02:00
parent 861ca55fc8
commit cab4e08fcc
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/StackageHome.hs
View File

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