haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 12:18:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Revert "Disabled /SnapName/docs/ page. See #300"

Browse Source 
This reverts commit 098d5176d7.
This commit is contained in:
Michael Snoyman 2020-11-16 03:53:51 +02:00
parent b44e9222de
commit 3bf0d89985
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/Handler/StackageHome.hs
View File

@ -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: " <>
"<a href=\"https://github.com/fpco/stackage-server/issues/300\">" <>
"github:fpco/stackage-server#300</a>")))
-- 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")