@@ -43,7 +43,6 @@ getInstallInfo settings = do
43 | requireHaskellPlatform settings = Map.union (stablePackages settings) $ identsToRanges (hplibs hp)
43 | requireHaskellPlatform settings = Map.union (stablePackages settings) $ identsToRanges (hplibs hp)
44 | otherwise = stablePackages settings
44 | otherwise = stablePackages settings
45 allPackages = dropExcluded settings allPackages'
45 allPackages = dropExcluded settings allPackages'
46− mapM_ print $ Map.keys allPackages
47 let totalCore = extraCore settings `Set.union` Set.map (\(PackageIdentifier p _) -> p) core
46 let totalCore = extraCore settings `Set.union` Set.map (\(PackageIdentifier p _) -> p) core
49 putStrLn "Loading package database"
48 putStrLn "Loading package database"