diff options
Diffstat (limited to 'compiler/GHC/Iface/UpdateIdInfos.hs')
| -rw-r--r-- | compiler/GHC/Iface/UpdateIdInfos.hs | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/compiler/GHC/Iface/UpdateIdInfos.hs b/compiler/GHC/Iface/UpdateIdInfos.hs index 9079bcae56..fcc93c110e 100644 --- a/compiler/GHC/Iface/UpdateIdInfos.hs +++ b/compiler/GHC/Iface/UpdateIdInfos.hs @@ -8,7 +8,6 @@ import GHC.Prelude import GHC.Core import GHC.Core.InstEnv -import GHC.Driver.Session import GHC.Driver.Types import GHC.StgToCmm.Types (CgInfos (..)) import GHC.Types.Id @@ -28,16 +27,11 @@ import GHC.Utils.Panic -- See Note [Conveying CAF-info and LFInfo between modules] in -- GHC.StgToCmm.Types. updateModDetailsIdInfos - :: DynFlags - -> CgInfos + :: CgInfos -> ModDetails -- ^ ModDetails to update -> ModDetails -updateModDetailsIdInfos dflags _ mod_details - | gopt Opt_OmitInterfacePragmas dflags - = mod_details - -updateModDetailsIdInfos _ cg_infos mod_details = +updateModDetailsIdInfos cg_infos mod_details = let ModDetails{ md_types = type_env -- for unfoldings , md_insts = insts |