diff --git a/src/Handler/PackageList.hs b/src/Handler/PackageList.hs index 039ffe7..844aa1d 100644 --- a/src/Handler/PackageList.hs +++ b/src/Handler/PackageList.hs @@ -1,26 +1,22 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE TemplateHaskell #-} module Handler.PackageList where import Import -import Text.Blaze +import Stackage.Database + -- FIXME maybe just redirect to the LTS or nightly package list getPackageListR :: Handler Html -getPackageListR = do - sendResponseStatus status404 =<< - defaultLayout - (toWidget (preEscapedText - ("Page has been disabled, see: " <> - "" <> - "github:fpco/stackage-server#299"))) - -- 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 = + 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)