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

Disabled /package/ page. See #299

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

32
src/Handler/PackageList.hs
View File

@ -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)