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

Disabled /SnapName/docs/ page. See #300

Browse Source
This commit is contained in:
Alexey Kuleshevich 2020-11-11 01:11:57 +03:00
parent b7908241d7
commit 098d5176d7
No known key found for this signature in database
GPG Key ID: E59B216127119E3E
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/Handler/StackageHome.hs
View File

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