X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FIORef.hs;h=7a6ec7d4cb32ecbd1b935ab8272116c8e81ced25;hb=a0d7892da0d00fee781a550ef353df8734be5884;hp=47499e2b39d3dfdc4d3bdac4c6fd082d8546f390;hpb=e1399bdcde01f55824973b556f60eecbe4dc2250;p=haskell-directory.git diff --git a/Data/IORef.hs b/Data/IORef.hs index 47499e2..7a6ec7d 100644 --- a/Data/IORef.hs +++ b/Data/IORef.hs @@ -52,10 +52,6 @@ import NHC.IOExtras ) #endif -#ifndef __NHC__ --- import Data.Dynamic -#endif - #if defined(__GLASGOW_HASKELL__) && !defined(__PARALLEL_HASKELL__) -- |Make a 'Weak' pointer to an 'IORef' mkWeakIORef :: IORef a -> IO () -> IO (Weak (IORef a)) @@ -76,7 +72,7 @@ modifyIORef ref f = writeIORef ref . f =<< readIORef ref -- -- Extending the atomicity to multiple 'IORef's is problematic, so it -- is recommended that if you need to do anything more complicated --- then using 'MVar' instead is a good idea. +-- then using 'Control.Concurrent.MVar.MVar' instead is a good idea. -- atomicModifyIORef :: IORef a -> (a -> (a,b)) -> IO b #if defined(__GLASGOW_HASKELL__)