Package list

Application.hs

@@ -54,6 +54,7 @@ import           Handler.Progress
 import           Handler.System
 import           Handler.Haddock
 import           Handler.Package
+import           Handler.PackageList
 
 -- This line actually creates our YesodDispatch instance. It is the second half
 -- of the call to mkYesodData which occurs in Foundation.hs. Please see the

Handler/PackageList.hs

@@ -0,0 +1,13 @@
+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")

config/routes

@@ -25,3 +25,4 @@
 /system SystemR GET
 /haddock/#PackageSetIdent/*Texts HaddockR GET
 /package/#PackageName PackageR GET
+/package PackageListR GET

stackage-server.cabal

@@ -43,6 +43,7 @@ library
                      Handler.System
                      Handler.Haddock
                      Handler.Package
+                     Handler.PackageList
 
     if flag(dev) || flag(library-only)
         cpp-options:   -DDEVELOPMENT

templates/package-list.hamlet

@@ -0,0 +1,5 @@
+<div .container>
+    <ul>
+        $forall name <- names
+            <li>
+                <a href=@{PackageR name}>#{name}