avoid incomplete record selection warning

Per SPJ suggection. Closes: #10402 (cherry picked from commit b1798b5)
haskell · Oct 12, 2024 · 8ad8e51 · 8ad8e51
1 parent 12d5db6
commit 8ad8e51
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 $