copy: Take into account extra-dyn-lib-flavours when copying bundled l…

…ibrary This fixes the DynWay case to match the other cases which take into account extra-dyn-lib-flavours.
mpickering · Jul 2, 2024 · ca0a03d · ca0a03d
1 parent 6eaba73
commit ca0a03d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Cabal/src/Distribution/Simple/GHC.hs b/Cabal/src/Distribution/Simple/GHC.hs
@@ -961,7 +961,7 @@ installLib verbosity lbi targetDir dynlibTargetDir _builtDir pkg lib clbi = do
                           mkGenericSharedBundledLibName
                             platform
                             compiler_id
-                            l
+                            (l ++ f)
                     forM_ files $ \file ->
                       when (l' `isPrefixOf` file) $ do
                         isFile <- doesFileExist (i $ builtDir </> makeRelativePathEx file)
@@ -971,6 +971,7 @@ installLib verbosity lbi targetDir dynlibTargetDir _builtDir pkg lib clbi = do
                             dynlibTargetDir
                             file
                   | l <- extraBundledLibs (libBuildInfo lib)
+                  , f <- "" : extraDynLibFlavours (libBuildInfo lib)
                   ]
   where
     -- See Note [Symbolic paths] in Distribution.Utils.Path