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

Revert "Disabled /package/ page. See #299"

Browse Source 
This reverts commit 6389b4468f.
This commit is contained in:
Michael Snoyman 2020-11-16 03:53:43 +02:00
parent 54e475e43e
commit b44e9222de
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/Handler/PackageList.hs
View File

@ -1,26 +1,22 @@
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
module Handler.PackageList where module Handler.PackageList where
import Import import Import
import Text.Blaze import Stackage.Database
-- 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 = do getPackageListR =
sendResponseStatus status404 =<< track "Handler.PackageList.getPackageListR" $
defaultLayout defaultLayout $ do
(toWidget (preEscapedText cacheSeconds $ 60 * 60 * 2
("Page has been disabled, see: " <> setTitle "Package list"
"<a href=\"https://github.com/fpco/stackage-server/issues/299\">" <> packages <- getAllPackages
"github:fpco/stackage-server#299</a>"))) $(widgetFile "package-list")
-- track "Handler.PackageList.getPackageListR" $ where
-- defaultLayout $ do strip x = fromMaybe x (stripSuffix "." x)
-- cacheSeconds $ 60 * 60 * 2 makePackageLink snapName pli =
-- setTitle "Package list" SnapshotR snapName $ StackageSdistR $ PNVNameVersion (pliName pli) (pliVersion pli)
-- packages <- getAllPackages
-- $(widgetFile "package-list")
-- where
-- strip x = fromMaybe x (stripSuffix "." x)
-- makePackageLink snapName pli =
-- SnapshotR snapName $ StackageSdistR $ PNVNameVersion (pliName pli) (pliVersion pli)