Merge pull request #10403 from geekosaur/spj-record-selectors

avoid incomplete record selection warning
haskell · Oct 3, 2024 · 1e5bfa1 · 1e5bfa1
2 parents 3667756 + b1798b5
commit 1e5bfa1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Cabal/src/Distribution/Simple/GHC/Build/Link.hs b/Cabal/src/Distribution/Simple/GHC/Build/Link.hs
@@ -735,7 +735,9 @@ runReplOrWriteFlags ghcProg lbi rflags ghcOpts pkg_name target =
  Flag out_dir -> do
  let uid = componentUnitId clbi
  this_unit = prettyShow uid
- reexported_modules = [mn | LibComponentLocalBuildInfo{} <- [clbi], IPI.ExposedModule mn (Just{}) <- componentExposedModules clbi]
+ reexported_modules =
+ [ mn | LibComponentLocalBuildInfo{componentExposedModules = exposed_mods} <- [clbi], IPI.ExposedModule mn (Just{}) <- exposed_mods
+ ]
  hidden_modules = otherModules bi
  extra_opts =
  concat $