From 098d5176d7f6b6ce4ea3525b8bb095bf35bcec98 Mon Sep 17 00:00:00 2001
From: Alexey Kuleshevich <alexey@kuleshevi.ch>
Date: Wed, 11 Nov 2020 01:11:57 +0300
Subject: [PATCH] Disabled `/SnapName/docs/` page. See #300

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

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