diff --git a/Handler/StackageIndex.hs b/Handler/StackageIndex.hs index 49b5a45..c6d85bc 100644 --- a/Handler/StackageIndex.hs +++ b/Handler/StackageIndex.hs @@ -6,16 +6,9 @@ import Stackage.Database getStackageIndexR :: SnapName -> Handler TypedContent getStackageIndexR slug = do - error "getStackageIndexR" - {- - Entity _ stackage <- runDB $ getBy404 $ UniqueSnapshot slug - let ident = stackageIdent stackage - msrc <- storeRead $ CabalIndex ident - 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 - -} + -- Insecure, courtesy of cabal-install + redirect $ concat + [ "http://haddock.stackage.org/package-index/" + , toPathPiece slug + , ".tar.gz" + ] diff --git a/stackage-server.cabal b/stackage-server.cabal index 31cc2cf..504e612 100644 --- a/stackage-server.cabal +++ b/stackage-server.cabal @@ -155,7 +155,7 @@ library , blaze-html , haddock-library , async - , yesod-gitrepo >= 0.1.1 + , yesod-gitrepo >= 0.1.1 && < 0.2 , hoogle , spoon , deepseq