diff --git a/src/Handler/StackageHome.hs b/src/Handler/StackageHome.hs index f91f677..f01322b 100644 --- a/src/Handler/StackageHome.hs +++ b/src/Handler/StackageHome.hs @@ -17,6 +17,7 @@ import RIO.Time (FormatTime) import Import import Stackage.Database import Stackage.Snapshot.Diff +import Text.Blaze getStackageHomeR :: SnapName -> Handler TypedContent getStackageHomeR name = @@ -155,12 +156,19 @@ getSnapshotPackagesR name = track "Handler.StackageHome.getSnapshotPackagesR" $ redirect $ SnapshotR name StackageHomeR getDocsR :: SnapName -> Handler Html -getDocsR name = track "Handler.StackageHome.getDocsR" $ do - cacheSeconds $ 60 * 60 * 48 - Entity sid _ <- lookupSnapshot name >>= maybe notFound return - mlis <- getSnapshotModules sid - render <- getUrlRender - let mliUrl mli = render $ haddockUrl name mli - defaultLayout $ do - setTitle $ toHtml $ "Module list for " ++ toPathPiece name - $(widgetFile "doc-list") +getDocsR _name = do + sendResponseStatus status404 =<< + defaultLayout + (toWidget (preEscapedText + ("Page has been disabled, see: " <> + "" <> + "github:fpco/stackage-server#300"))) + -- track "Handler.StackageHome.getDocsR" $ do + -- cacheSeconds $ 60 * 60 * 48 + -- Entity sid _ <- lookupSnapshot name >>= maybe notFound return + -- mlis <- getSnapshotModules sid + -- render <- getUrlRender + -- let mliUrl mli = render $ haddockUrl name mli + -- defaultLayout $ do + -- setTitle $ toHtml $ "Module list for " ++ toPathPiece name + -- $(widgetFile "doc-list")