barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-20 03:51:39 +03:00
Code Issues Projects Releases Wiki Activity

Use default writeCRef for IO

Browse Source
This commit is contained in:
Michael Walker 2015-02-20 16:53:38 +00:00
parent 0ea2930862
commit 5862d536ca
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Control/Monad/Conc/Class.hs
View File

@ -19,7 +19,7 @@ import Control.Monad (unless)
import Control.Monad.Catch (MonadCatch, MonadThrow, MonadMask) import Control.Monad.Catch (MonadCatch, MonadThrow, MonadMask)
import Control.Monad.STM (STM) import Control.Monad.STM (STM)
import Control.Monad.STM.Class (MonadSTM) import Control.Monad.STM.Class (MonadSTM)
import Data.IORef (IORef, atomicModifyIORef, atomicWriteIORef, newIORef, readIORef) import Data.IORef (IORef, atomicModifyIORef, newIORef, readIORef)
import qualified Control.Monad.Catch as Ca import qualified Control.Monad.Catch as Ca
import qualified Control.Concurrent as C import qualified Control.Concurrent as C
@ -234,7 +234,6 @@ instance MonadConc IO where
newCRef = newIORef newCRef = newIORef
readCRef = readIORef readCRef = readIORef
modifyCRef = atomicModifyIORef modifyCRef = atomicModifyIORef
writeCRef = atomicWriteIORef
atomically = S.atomically atomically = S.atomically
-- | Create a concurrent computation for the provided action, and -- | Create a concurrent computation for the provided action, and