@@ -10,7 +10,7 @@ module Control.AutoUpdate.Util
10#if MIN_VERSION_base(4,6,0)
10#if MIN_VERSION_base(4,6,0)
11import Data.IORef (atomicModifyIORef')
11import Data.IORef (atomicModifyIORef')
13−import Data.IORef (atomicModifyIORef)
13+import Data.IORef (IORef, atomicModifyIORef)
14-- | Strict version of 'atomicModifyIORef'. This forces both the value stored
14-- | Strict version of 'atomicModifyIORef'. This forces both the value stored
15-- in the 'IORef' as well as the value returned.
15-- in the 'IORef' as well as the value returned.
16atomicModifyIORef' :: IORef a -> (a -> (a,b)) -> IO b
16atomicModifyIORef' :: IORef a -> (a -> (a,b)) -> IO b