@@ -12,6 +12,7 @@ module Stackage.ServerBundle
1212import qualified Codec.Archive.Tar as Tar
1313import qualified Codec.Archive.Tar.Entry as Tar
1414import qualified Codec.Compression.GZip as GZip
15+import qualified Data.Map as M
1516import qualified Data.Yaml as Y
1617import Filesystem (isFile)
1718import Foreign.C.Types (CTime (CTime))
@@ -43,6 +44,7 @@ serverBundle time title slug bp@BuildPlan {..} = GZip.compress $ Tar.write
4344 , fe "hackage" hackage
4445 , fe "slug" (fromStrict $ encodeUtf8 slug)
4546 , fe "desc" (fromStrict $ encodeUtf8 title)
47+ , fe "core" corePackagesList
4648 ]
4749 where
4850 fe name contents =
@@ -66,6 +68,13 @@ serverBundle time title slug bp@BuildPlan {..} = GZip.compress $ Tar.write
6668 toBuilder (display version) ++
6769 toBuilder (asText "\n")
6870
71+ corePackagesList =
72+ builderToLazy $ toBuilder $
73+ intercalate
74+ "\n"
75+ (map (\(PackageName name) -> name)
76+ (M.keys $ siCorePackages bpSystemInfo))
77+
6978docsListing :: BuildPlan
7079 -> FilePath -- ^ docs directory
7180 -> IO ByteString