diff options
Diffstat (limited to 'compiler/utils/Util.hs')
| -rw-r--r-- | compiler/utils/Util.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index a1dacb45e5..ddcfe1117b 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -107,7 +107,7 @@ import Exception import Panic import Data.Data -import Data.IORef ( IORef, newIORef, atomicModifyIORef ) +import Data.IORef ( IORef, newIORef, atomicModifyIORef' ) import System.IO.Unsafe ( unsafePerformIO ) import Data.List hiding (group) @@ -808,7 +808,7 @@ global a = unsafePerformIO (newIORef a) consIORef :: IORef [a] -> a -> IO () consIORef var x = do - atomicModifyIORef var (\xs -> (x:xs,())) + atomicModifyIORef' var (\xs -> (x:xs,())) globalM :: IO a -> IORef a globalM ma = unsafePerformIO (ma >>= newIORef) |