mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-17 14:48:30 +01:00
00-index.tar.gz redirects to S3
This commit is contained in:
parent
fd4e84e14d
commit
a53dadcbfc
@ -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
|
|
||||||
-}
|
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user