Docs

Handler/Package.hs

@@ -50,11 +50,18 @@ packagePage mversion pname = do
     deps' <- getDeps pname'
     revdeps' <- getRevDeps pname'
     Entity _ package <- getPackage pname' >>= maybe notFound return
-    let mdocs :: Maybe (SnapName, Text, [Text])
+
-        mdocs = Nothing
+    mdocs <-
-    {-
+        case mversion of
-    mdocs <- error "mdocs"
+            Just (sname, version) -> do
-    -}
+                ms <- getPackageModules sname pname'
+                return $ Just (sname, toPathPiece version, ms)
+            Nothing ->
+                case latests of
+                    li:_ -> do
+                        ms <- getPackageModules (liSnapName li) pname'
+                        return $ Just (liSnapName li, liVersion li, ms)
+                    [] -> return Nothing
 
     let ixInFavourOf = zip [0::Int ..] inFavourOf
         displayedVersion = maybe (packageLatest package) (toPathPiece . snd) mversion

Stackage/Database.hs

@@ -14,6 +14,7 @@ module Stackage.Database
     , openStackageDatabase
     , ModuleListingInfo (..)
     , getSnapshotModules
+    , getPackageModules
     , SnapshotPackage (..)
     , lookupSnapshotPackage
     , getDeprecated
@@ -218,10 +219,10 @@ addPackage e =
                 , packageSynopsis = piSynopsis pi
                 , packageDescription = renderContent (piDescription pi) (piDescriptionType pi)
                 , packageChangelog = renderContent (piChangeLog pi) (piChangeLogType pi)
-                , packageAuthor = "FIXME author"
+                , packageAuthor = piAuthor pi
-                , packageMaintainer = "FIXME maintainer"
+                , packageMaintainer = piMaintainer pi
-                , packageHomepage = "FIXME homepage"
+                , packageHomepage = piHomepage pi
-                , packageLicenseName = "FIXME license name"
+                , packageLicenseName = piLicenseName pi
                 }
             forM_ (mapToList $ piBasicDeps pi) $ \(uses, range) -> insert_ Dep
                 { depUser = pid
@@ -390,6 +391,26 @@ getSnapshotModules sid = liftM (map toMLI) $ run $ do
         , mliPackageVersion = concat [pkg, "-", version]
         }
 
+getPackageModules
+    :: GetStackageDatabase m
+    => SnapName
+    -> Text
+    -> m [Text]
+getPackageModules sname pname = run $ do
+    sids <- selectKeysList [SnapshotName ==. sname] []
+    pids <- selectKeysList [PackageName ==. pname] []
+    case (,) <$> listToMaybe sids <*> listToMaybe pids of
+        Nothing -> return []
+        Just (sid, pid) -> do
+            spids <- selectKeysList
+                [ SnapshotPackageSnapshot ==. sid
+                , SnapshotPackagePackage ==. pid
+                ] []
+            case spids of
+                spid:_ -> map (moduleName . entityVal)
+                      <$> selectList [ModulePackage ==. spid] [Asc ModuleName]
+                [] -> return []
+
 lookupSnapshotPackage
     :: GetStackageDatabase m
     => SnapshotId

stackage-server.cabal

@@ -168,7 +168,7 @@ library
                  , classy-prelude-conduit
                  , path-pieces
                  , persistent-sqlite
-                 , stackage-metadata
+                 , stackage-metadata >= 0.2
                  , filepath
 
 executable         stackage-server