mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
14 lines
401 B
Haskell
14 lines
401 B
Haskell
module Handler.PackageList where
|
|
|
|
import Import
|
|
import qualified Database.Esqueleto as E
|
|
|
|
getPackageListR :: Handler Html
|
|
getPackageListR = do
|
|
names <- fmap (map E.unValue) $ runDB $ E.selectDistinct $ E.from $ \u -> do
|
|
E.orderBy [E.asc $ u E.^. UploadedName]
|
|
return $ u E.^. UploadedName
|
|
defaultLayout $ do
|
|
setTitle "Package list"
|
|
$(widgetFile "package-list")
|