Commit fe4008f6 authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Remove identity update of field componentsConfigs

... in LocalBuildInfo, getting rid of a TODO in the
process. Turns out that componentsConfigs won't be
a field in Cabal 2.0 any more, so this can be seen
as a preparation for it.
parent 1101045c
...@@ -229,12 +229,7 @@ doRegister directory distDir ghc ghcpkg topdir ...@@ -229,12 +229,7 @@ doRegister directory distDir ghc ghcpkg topdir
progs' <- configurePrograms [ghcProgram', ghcPkgProgram'] progs progs' <- configurePrograms [ghcProgram', ghcPkgProgram'] progs
instInfos <- dump (hcPkgInfo progs') verbosity GlobalPackageDB instInfos <- dump (hcPkgInfo progs') verbosity GlobalPackageDB
let installedPkgs' = PackageIndex.fromList instInfos let installedPkgs' = PackageIndex.fromList instInfos
let updateComponentConfig (clbi, deps) let lbi' = lbi {
= (updateComponentLocalBuildInfo clbi, deps)
updateComponentLocalBuildInfo clbi = clbi -- TODO: remove
ccs' = map updateComponentConfig (componentsConfigs lbi)
lbi' = lbi {
componentsConfigs = ccs',
installedPkgs = installedPkgs', installedPkgs = installedPkgs',
installDirTemplates = idts, installDirTemplates = idts,
withPrograms = progs' withPrograms = progs'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment