diff options
Diffstat (limited to 'compiler/GHC/Iface/Binary.hs')
| -rw-r--r-- | compiler/GHC/Iface/Binary.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/GHC/Iface/Binary.hs b/compiler/GHC/Iface/Binary.hs index e2a6f0a79b..4144fe0398 100644 --- a/compiler/GHC/Iface/Binary.hs +++ b/compiler/GHC/Iface/Binary.hs @@ -45,7 +45,6 @@ import GHC.Types.Name import GHC.Driver.Session import GHC.Platform.Profile import GHC.Types.Unique.FM -import GHC.Types.Unique.Supply import GHC.Utils.Panic import GHC.Utils.Binary as Binary import GHC.Types.SrcLoc @@ -320,11 +319,7 @@ fromOnDiskName nc (pid, mod_name, occ) = cache = nsNames nc in case lookupOrigNameCache cache mod occ of Just name -> (nc, name) - Nothing -> - let (uniq, us) = takeUniqFromSupply (nsUniqs nc) - name = mkExternalName uniq mod occ noSrcSpan - new_cache = extendNameCache cache mod occ name - in ( nc{ nsUniqs = us, nsNames = new_cache }, name ) + Nothing -> allocNameInCache mod occ noSrcSpan nc serialiseName :: BinHandle -> Name -> UniqFM key (Int,Name) -> IO () serialiseName bh name _ = do |