From 3bf0d899854ab1abfb6dcb3e8514351ec9019ada Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 16 Nov 2020 03:53:51 +0200
Subject: [PATCH] Revert "Disabled `/SnapName/docs/` page. See #300"

This reverts commit 098d5176d7f6b6ce4ea3525b8bb095bf35bcec98.
---
 src/Handler/StackageHome.hs | 26 +++++++++-----------------
 1 file changed, 9 insertions(+), 17 deletions(-)

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: " <>
-                   "<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")