haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-28 20:00:24 +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 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 =
@ -156,19 +155,12 @@ getSnapshotPackagesR name = track "Handler.StackageHome.getSnapshotPackagesR" $
redirect $ SnapshotR name StackageHomeR redirect $ SnapshotR name StackageHomeR
getDocsR :: SnapName -> Handler Html getDocsR :: SnapName -> Handler Html
getDocsR _name = do getDocsR name = track "Handler.StackageHome.getDocsR" $ do
sendResponseStatus status404 =<< cacheSeconds $ 60 * 60 * 48
defaultLayout Entity sid _ <- lookupSnapshot name >>= maybe notFound return
(toWidget (preEscapedText mlis <- getSnapshotModules sid
("Page has been disabled, see: " <> render <- getUrlRender
"<a href=\"https://github.com/fpco/stackage-server/issues/300\">" <> let mliUrl mli = render $ haddockUrl name mli
"github:fpco/stackage-server#300</a>"))) defaultLayout $ do
-- track "Handler.StackageHome.getDocsR" $ do setTitle $ toHtml $ "Module list for " ++ toPathPiece name
-- cacheSeconds $ 60 * 60 * 48 $(widgetFile "doc-list")
-- 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")