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

Make Conc a MonadRef/MonadAtomicRef.

Browse Source 
Closes #72.
This commit is contained in:
Michael Walker 2017-02-26 03:17:02 +00:00
parent e33e2291f4
commit 69e0890ecd
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
dejafu/Test/DejaFu/Conc.hs
View File

@ -50,7 +50,8 @@ import Control.Exception (MaskingState(..))
import qualified Control.Monad.Base as Ba
import qualified Control.Monad.Catch as Ca
import qualified Control.Monad.IO.Class as IO
import Control.Monad.Ref (MonadRef,)
import Control.Monad.Ref (MonadRef)
import qualified Control.Monad.Ref as Re
import Control.Monad.ST (ST)
import qualified Data.Foldable as F
import Data.IORef (IORef)
@ -87,6 +88,18 @@ instance IO.MonadIO ConcIO where
instance Ba.MonadBase IO ConcIO where
liftBase = IO.liftIO
instance Re.MonadRef (CRef r) (Conc n r) where
newRef a = toConc (\c -> ANewCRef "" a c)
readRef ref = toConc (AReadCRef ref)
writeRef ref a = toConc (\c -> AWriteCRef ref a (c ()))
modifyRef ref f = toConc (AModCRef ref (\a -> (f a, ())))
instance Re.MonadAtomicRef (CRef r) (Conc n r) where
atomicModifyRef ref f = toConc (AModCRef ref f)
instance Ca.MonadCatch (Conc n r) where
catch ma h = toConc (ACatching (unC . h) (unC ma))