@@ -99,14 +99,8 @@ enforcePreferredVersions cs pkg = Map.filterWithKey (\v _ -> PackageIdentifier (
9999generatePackageSet :: Platform -> Configuration -> Hackage -> Nixpkgs -> ParIO ()
100100generatePackageSet targetPlatform config hackage nixpkgs = do
101101 let
102− hardCorePackages :: Set PackageIdentifier -- TODO: review whether this set is needed at all
103− hardCorePackages = Set.filter isOnHackage (corePackages config)
104− where
105− isOnHackage :: PackageIdentifier -> Bool
106− isOnHackage (PackageIdentifier (PackageName n) v) = maybe False (Set.member v . Map.keysSet) (Map.lookup n hackage)
107−
108102 corePackageSet :: PackageSet
109− corePackageSet = Map.fromList [ (name, v) | PackageIdentifier (PackageName name) v <- Set.toList (corePackages config) ++ Set.toList hardCorePackages ]
103+ corePackageSet = Map.fromList [ (name, v) | PackageIdentifier (PackageName name) v <- Set.toList (corePackages config) ]
110104
111105 latestVersionSet :: PackageSet
112106 latestVersionSet = Map.map (Set.findMax . Map.keysSet) hackage