diff --git a/src/Handler/StackageHome.hs b/src/Handler/StackageHome.hs index f01322b..f91f677 100644 --- a/src/Handler/StackageHome.hs +++ b/src/Handler/StackageHome.hs @@ -17,7 +17,6 @@ import RIO.Time (FormatTime) import Import import Stackage.Database import Stackage.Snapshot.Diff -import Text.Blaze getStackageHomeR :: SnapName -> Handler TypedContent getStackageHomeR name = @@ -156,19 +155,12 @@ getSnapshotPackagesR name = track "Handler.StackageHome.getSnapshotPackagesR" $ redirect $ SnapshotR name StackageHomeR getDocsR :: SnapName -> Handler Html -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") +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")