barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-18 19:11:37 +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.STM (STM)
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.Concurrent as C
@ -234,7 +234,6 @@ instance MonadConc IO where
newCRef = newIORef
readCRef = readIORef
modifyCRef = atomicModifyIORef
writeCRef = atomicWriteIORef
atomically = S.atomically
-- | Create a concurrent computation for the provided action, and