@@ -183,12 +183,16 @@ main = do
183183
184184 void $ runParIO $ flip parMapM snapshots $ \Snapshot {..} -> liftIO $ do
185185 let allPackages :: PackageSet
186− allPackages = Map.delete "Cabal" $ Map.delete "rts" $ Map.fromList
187− [ (name, Stackage.version spec) | (PackageName name, spec) <- Map.toList packages ] `Map.union` generatedDefaultPackageSet
186+ allPackages = Map.difference
187+ (Map.fromList [ (name, Stackage.version spec) | (PackageName name, spec) <- Map.toList packages ] `Map.union` generatedDefaultPackageSet)
188+ corePackages'
188189
189190 ltsConfigFile :: FilePath
190191 ltsConfigFile = nixpkgsRepository </> "pkgs/development/haskell-modules/configuration-" ++ show (pPrint snapshot) ++ ".nix"
191192
193+ corePackages' :: PackageSet
194+ corePackages' = Map.mapKeys unPackageName corePackages `Map.union` Map.fromList [("Cabal", Version [] []), ("rts", Version [] [])]
195+
192196 withFile ltsConfigFile WriteMode $ \h -> do
193197 hPutStrLn h "{ pkgs }:"
194198 hPutStrLn h ""
@@ -197,7 +201,7 @@ main = do
197201 hPutStrLn h ("self: super: assert super.ghc.name == " ++ show (display compiler) ++ "; {")
198202 hPutStrLn h ""
199203 hPutStrLn h " # core libraries provided by the compiler"
200− forM_ (Map.keys (Map.insert (PackageName "rts") (Version [] []) (Map.insert (PackageName "Cabal") (Version [] []) corePackages))) $ \(PackageName n) -> do
204+ forM_ (Map.keys corePackages') $ \n -> do
201205 unless (n == "ghc") (hPutStrLn h (" " ++ n ++ " = null;"))
202206 hPutStrLn h ""
203207 hPutStrLn h (" # " ++ show (pPrint snapshot) ++ " packages")