From 6389b4468fe7102ce463bf9cde4fa13c47e4c828 Mon Sep 17 00:00:00 2001
From: Alexey Kuleshevich <alexey@kuleshevi.ch>
Date: Wed, 11 Nov 2020 01:21:59 +0300
Subject: [PATCH] Disabled `/package/` page. See #299

---
 src/Handler/PackageList.hs | 32 ++++++++++++++++++--------------
 1 file changed, 18 insertions(+), 14 deletions(-)

diff --git a/src/Handler/PackageList.hs b/src/Handler/PackageList.hs
index 844aa1d..039ffe7 100644
--- a/src/Handler/PackageList.hs
+++ b/src/Handler/PackageList.hs
@@ -1,22 +1,26 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE TemplateHaskell   #-}
 module Handler.PackageList where
 
 import Import
-import Stackage.Database
-
+import Text.Blaze
 
 -- FIXME maybe just redirect to the LTS or nightly package list
 getPackageListR :: Handler Html
-getPackageListR =
-    track "Handler.PackageList.getPackageListR" $
-    defaultLayout $ do
-        cacheSeconds $ 60 * 60 * 2
-        setTitle "Package list"
-        packages <- getAllPackages
-        $(widgetFile "package-list")
-  where
-    strip x = fromMaybe x (stripSuffix "." x)
-    makePackageLink snapName pli =
-        SnapshotR snapName $ StackageSdistR $ PNVNameVersion (pliName pli) (pliVersion pli)
+getPackageListR = do
+    sendResponseStatus status404 =<<
+        defaultLayout
+            (toWidget (preEscapedText
+                 ("Page has been disabled, see: " <>
+                   "<a href=\"https://github.com/fpco/stackage-server/issues/299\">" <>
+                   "github:fpco/stackage-server#299</a>")))
+  --   track "Handler.PackageList.getPackageListR" $
+  --   defaultLayout $ do
+  --       cacheSeconds $ 60 * 60 * 2
+  --       setTitle "Package list"
+  --       packages <- getAllPackages
+  --       $(widgetFile "package-list")
+  -- where
+  --   strip x = fromMaybe x (stripSuffix "." x)
+  --   makePackageLink snapName pli =
+  --       SnapshotR snapName $ StackageSdistR $ PNVNameVersion (pliName pli) (pliVersion pli)