00-index.tar.gz redirects to S3

This commit is contained in:
Michael Snoyman 2015-05-14 13:22:31 +03:00
parent fd4e84e14d
commit a53dadcbfc
2 changed files with 7 additions and 14 deletions

View File

@ -6,16 +6,9 @@ import Stackage.Database
getStackageIndexR :: SnapName -> Handler TypedContent getStackageIndexR :: SnapName -> Handler TypedContent
getStackageIndexR slug = do getStackageIndexR slug = do
error "getStackageIndexR" -- Insecure, courtesy of cabal-install
{- redirect $ concat
Entity _ stackage <- runDB $ getBy404 $ UniqueSnapshot slug [ "http://haddock.stackage.org/package-index/"
let ident = stackageIdent stackage , toPathPiece slug
msrc <- storeRead $ CabalIndex ident , ".tar.gz"
case msrc of ]
Nothing -> notFound
Just src -> do
setEtag $ toPathPiece ident
addHeader "content-disposition" "attachment; filename=\"00-index.tar.gz\""
neverExpires
respondSource "application/x-gzip" $ mapOutput (Chunk . toBuilder) src
-}

View File

@ -155,7 +155,7 @@ library
, blaze-html , blaze-html
, haddock-library , haddock-library
, async , async
, yesod-gitrepo >= 0.1.1 , yesod-gitrepo >= 0.1.1 && < 0.2
, hoogle , hoogle
, spoon , spoon
, deepseq , deepseq