Merge pull request #10449 from haskell/mergify/bp/3.12/pr-10403

avoid incomplete record selection warning (backport #10403)
haskell · Oct 12, 2024 · 28f021d · 28f021d
2 parents 12d5db6 + 8ad8e51
commit 28f021d
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
@@ -634,7 +634,9 @@ runReplOrWriteFlags ghcProg lbi rflags ghcOpts pkg_name target =
           src_dir <- getCurrentDirectory
           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 $