stm-split 0.0.0.2 → 0.0.1
raw patch · 2 files changed
+11/−5 lines, 2 files
Files
src/Control/Concurrent/STM/Split/MVar.hs view
@@ -6,8 +6,8 @@ newEmpty, newIO, new,- take,- put,+ take, tryTake,+ put, tryPut, {- write, clear,@@ -19,7 +19,7 @@ import qualified Control.Concurrent.STM.TMVar as MVar import Control.Monad.STM (STM, ) -import Prelude (IO, return, )+import Prelude (IO, Maybe, Bool, return, ) newtype T dir a = Cons (MVar.TMVar a)@@ -57,8 +57,14 @@ take :: Out a -> STM a take (Cons v) = MVar.takeTMVar v +tryTake :: Out a -> STM (Maybe a)+tryTake (Cons v) = MVar.tryTakeTMVar v+ put :: In a -> a -> STM () put (Cons v) a = MVar.putTMVar v a++tryPut :: In a -> a -> STM Bool+tryPut (Cons v) a = MVar.tryPutTMVar v a {-
stm-split.cabal view
@@ -1,5 +1,5 @@ Name: stm-split-Version: 0.0.0.2+Version: 0.0.1 License: BSD3 License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -27,7 +27,7 @@ Cabal-Version: >=1.6 Build-Type: Simple Source-Repository this- Tag: 0.0.0.2+ Tag: 0.0.1 Type: darcs Location: http://hub.darcs.net/thielema/stm-split/