haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-24 01:41:55 +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 FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
module Handler.PackageList where module Handler.PackageList where
import Import import Import
import Stackage.Database import Text.Blaze
-- FIXME maybe just redirect to the LTS or nightly package list -- FIXME maybe just redirect to the LTS or nightly package list
getPackageListR :: Handler Html getPackageListR :: Handler Html
getPackageListR = getPackageListR = do
track "Handler.PackageList.getPackageListR" $ sendResponseStatus status404 =<<
defaultLayout $ do defaultLayout
cacheSeconds $ 60 * 60 * 2 (toWidget (preEscapedText
setTitle "Package list" ("Page has been disabled, see: " <>
packages <- getAllPackages "<a href=\"https://github.com/fpco/stackage-server/issues/299\">" <>
$(widgetFile "package-list") "github:fpco/stackage-server#299</a>")))
where -- track "Handler.PackageList.getPackageListR" $
strip x = fromMaybe x (stripSuffix "." x) -- defaultLayout $ do
makePackageLink snapName pli = -- cacheSeconds $ 60 * 60 * 2
SnapshotR snapName $ StackageSdistR $ PNVNameVersion (pliName pli) (pliVersion pli) -- 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)