From 1d6907089c657d5c4a2d70a3880b6afbee0a5b81 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Tue, 23 Dec 2014 11:58:01 +0100
Subject: [PATCH] Output core packages list to "core" file #68

---
 Stackage/ServerBundle.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

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