diff options
Diffstat (limited to 'compiler/GHC/SysTools.hs')
| -rw-r--r-- | compiler/GHC/SysTools.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/SysTools.hs b/compiler/GHC/SysTools.hs index 0ec9912c8d..604cd60fd1 100644 --- a/compiler/GHC/SysTools.hs +++ b/compiler/GHC/SysTools.hs @@ -228,7 +228,7 @@ copyWithHeader dflags purpose maybe_header from to = do ************************************************************************ -} -linkDynLib :: DynFlags -> [String] -> [InstalledUnitId] -> IO () +linkDynLib :: DynFlags -> [String] -> [UnitId] -> IO () linkDynLib dflags0 o_files dep_packages = do let -- This is a rather ugly hack to fix dynamically linked @@ -277,7 +277,7 @@ linkDynLib dflags0 o_files dep_packages OSMinGW32 -> pkgs _ -> - filter ((/= rtsUnitId) . packageConfigId) pkgs + filter ((/= rtsUnitId) . mkUnit) pkgs let pkg_link_opts = let (package_hs_libs, extra_libs, other_flags) = collectLinkOpts dflags pkgs_no_rts in package_hs_libs ++ extra_libs ++ other_flags @@ -422,7 +422,7 @@ libmLinkOpts = [] #endif -getPkgFrameworkOpts :: DynFlags -> Platform -> [InstalledUnitId] -> IO [String] +getPkgFrameworkOpts :: DynFlags -> Platform -> [UnitId] -> IO [String] getPkgFrameworkOpts dflags platform dep_packages | platformUsesFrameworks platform = do pkg_framework_path_opts <- do |