haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-03 10:00:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Output core packages list to "core" file #68

Browse Source
This commit is contained in:
Chris Done 2014-12-23 11:58:01 +01:00
parent defcef772c
commit 1d6907089c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Stackage/ServerBundle.hs
View File

@ -12,6 +12,7 @@ module Stackage.ServerBundle
import qualified Codec.Archive.Tar as Tar import qualified Codec.Archive.Tar as Tar
import qualified Codec.Archive.Tar.Entry as Tar import qualified Codec.Archive.Tar.Entry as Tar
import qualified Codec.Compression.GZip as GZip import qualified Codec.Compression.GZip as GZip
import qualified Data.Map as M
import qualified Data.Yaml as Y import qualified Data.Yaml as Y
import Filesystem (isFile) import Filesystem (isFile)
import Foreign.C.Types (CTime (CTime)) import Foreign.C.Types (CTime (CTime))
@ -43,6 +44,7 @@ serverBundle time title slug bp@BuildPlan {..} = GZip.compress $ Tar.write
, fe "hackage" hackage , fe "hackage" hackage
, fe "slug" (fromStrict $ encodeUtf8 slug) , fe "slug" (fromStrict $ encodeUtf8 slug)
, fe "desc" (fromStrict $ encodeUtf8 title) , fe "desc" (fromStrict $ encodeUtf8 title)
, fe "core" corePackagesList
] ]
where where
fe name contents = fe name contents =
@ -66,6 +68,13 @@ serverBundle time title slug bp@BuildPlan {..} = GZip.compress $ Tar.write
toBuilder (display version) ++ toBuilder (display version) ++
toBuilder (asText "\n") toBuilder (asText "\n")
corePackagesList =
builderToLazy $ toBuilder $
intercalate
"\n"
(map (\(PackageName name) -> name)
(M.keys $ siCorePackages bpSystemInfo))
docsListing :: BuildPlan docsListing :: BuildPlan
-> FilePath -- ^ docs directory -> FilePath -- ^ docs directory
-> IO ByteString -> IO ByteString