diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-20 12:19:17 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-09-20 12:19:20 +0200 |
| commit | e156361fd1657184c35cca78e6b1c43836dec0ec (patch) | |
| tree | 843c15491ea86261efa8f95108449ac60fc4300a /compiler | |
| parent | c738b1231bc63a45be87d49cc42b7644681e509d (diff) | |
| download | haskell-e156361fd1657184c35cca78e6b1c43836dec0ec.tar.gz | |
Put stable pointer names in the name cache.
Test Plan: validate
Reviewers: simonpj, austin, bgamari
Reviewed By: austin, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1249
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/deSugar/DsExpr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsExpr.hs b/compiler/deSugar/DsExpr.hs index d3a8156f88..32bd27b495 100644 --- a/compiler/deSugar/DsExpr.hs +++ b/compiler/deSugar/DsExpr.hs @@ -58,6 +58,7 @@ import Bag import Outputable import FastString +import IfaceEnv import IdInfo import Data.IORef ( atomicModifyIORef', modifyIORef ) @@ -985,10 +986,9 @@ badMonadBind rhs elt_ty flag_doc -- mkSptEntryName :: SrcSpan -> DsM Name mkSptEntryName loc = do - uniq <- newUnique mod <- getModule occ <- mkWrapperName "sptEntry" - return $ mkExternalName uniq mod occ loc + newGlobalBinder mod occ loc where mkWrapperName what = do dflags <- getDynFlags |