mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 20:28:32 +01:00
15 lines
415 B
Haskell
15 lines
415 B
Haskell
module Handler.PackageList where
|
|
|
|
import Import
|
|
import Stackage.Database
|
|
|
|
|
|
-- FIXME maybe just redirect to the LTS or nightly package list
|
|
getPackageListR :: Handler Html
|
|
getPackageListR = track "Handler.PackageList.getPackageListR" $ do
|
|
defaultLayout $ do
|
|
setTitle "Package list"
|
|
packages <- getAllPackages
|
|
$(widgetFile "package-list")
|
|
where strip x = fromMaybe x (stripSuffix "." x)
|