git.iko.soy/stackage
on master help sign in
Output core packages list to "core" file #68
1d69070Chris Done
Stackage/ServerBundle.hs+9
compare with master
unifiedsplit
@@ -12,6 +12,7 @@ module Stackage.ServerBundle
12import qualified Codec.Archive.Tar as Tar
12import qualified Codec.Archive.Tar as Tar
13import qualified Codec.Archive.Tar.Entry as Tar
13import qualified Codec.Archive.Tar.Entry as Tar
14import qualified Codec.Compression.GZip as GZip
14import qualified Codec.Compression.GZip as GZip
15+import qualified Data.Map as M
15import qualified Data.Yaml as Y
16import qualified Data.Yaml as Y
16import Filesystem (isFile)
17import Filesystem (isFile)
17import Foreign.C.Types (CTime (CTime))
18import Foreign.C.Types (CTime (CTime))
@@ -43,6 +44,7 @@ serverBundle time title slug bp@BuildPlan {..} = GZip.compress $ Tar.write
43 , fe "hackage" hackage
44 , fe "hackage" hackage
44 , fe "slug" (fromStrict $ encodeUtf8 slug)
45 , fe "slug" (fromStrict $ encodeUtf8 slug)
45 , fe "desc" (fromStrict $ encodeUtf8 title)
46 , fe "desc" (fromStrict $ encodeUtf8 title)
47+ , fe "core" corePackagesList
46 ]
48 ]
47 where
49 where
48 fe name contents =
50 fe name contents =
@@ -66,6 +68,13 @@ serverBundle time title slug bp@BuildPlan {..} = GZip.compress $ Tar.write
66 toBuilder (display version) ++
68 toBuilder (display version) ++
67 toBuilder (asText "\n")
69 toBuilder (asText "\n")
68
70
71+ corePackagesList =
72+ builderToLazy $ toBuilder $
73+ intercalate
74+ "\n"
75+ (map (\(PackageName name) -> name)
76+ (M.keys $ siCorePackages bpSystemInfo))
77+
69docsListing :: BuildPlan
78docsListing :: BuildPlan
70 -> FilePath -- ^ docs directory
79 -> FilePath -- ^ docs directory
71 -> IO ByteString
80 -> IO ByteString