diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-01-27 16:20:54 -0800 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-01-28 13:54:58 -0800 |
| commit | 07ee96faac4996cde0ab82789eec0b70d1a35af0 (patch) | |
| tree | 1a36efc948d7634a95734d0c527286a5070f4c76 /compiler/deSugar/DsExpr.hs | |
| parent | 276da7929c187f007c198a38e88bdad91866e500 (diff) | |
| download | haskell-07ee96faac4996cde0ab82789eec0b70d1a35af0.tar.gz | |
Use strict atomicModifyIORef' (added in GHC 7.6).
Summary: Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate
Reviewers: austin, hvr
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D635
Diffstat (limited to 'compiler/deSugar/DsExpr.hs')
| -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 3b176a5847..439d052496 100644 --- a/compiler/deSugar/DsExpr.hs +++ b/compiler/deSugar/DsExpr.hs @@ -63,7 +63,7 @@ import Outputable import FastString import IdInfo -import Data.IORef ( atomicModifyIORef, modifyIORef ) +import Data.IORef ( atomicModifyIORef', modifyIORef ) import Control.Monad import GHC.Fingerprint @@ -973,7 +973,7 @@ mkSptEntryName loc = do let -- Note [Generating fresh names for ccall wrapper] -- in compiler/typecheck/TcEnv.hs wrapperRef = nextWrapperNum dflags - wrapperNum <- liftIO $ atomicModifyIORef wrapperRef $ \mod_env -> + wrapperNum <- liftIO $ atomicModifyIORef' wrapperRef $ \mod_env -> let num = lookupWithDefaultModuleEnv mod_env 0 thisMod in (extendModuleEnv mod_env thisMod (num+1), num) return $ mkVarOcc $ what ++ ":" ++ show wrapperNum |