concurrent-split 0.0.0.2 → 0.0.1
raw patch · 2 files changed
+11/−5 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Control.Concurrent.Split.Chan: instance Control.Concurrent.Split.Class.C Control.Concurrent.Split.Chan.T
- Control.Concurrent.Split.MVar: instance Control.Concurrent.Split.Class.C Control.Concurrent.Split.MVar.T
+ Control.Concurrent.Split.Chan: instance C T
+ Control.Concurrent.Split.MVar: instance C T
+ Control.Concurrent.Split.MVar: tryPut :: In a -> a -> IO Bool
+ Control.Concurrent.Split.MVar: tryTake :: Out a -> IO (Maybe a)
Files
concurrent-split.cabal view
@@ -1,5 +1,5 @@ Name: concurrent-split-Version: 0.0.0.2+Version: 0.0.1 License: BSD3 License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -37,7 +37,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/concurrent-split/
src/Control/Concurrent/Split/MVar.hs view
@@ -3,15 +3,15 @@ In, Out, newEmpty,- take,- put,+ take, tryTake,+ put, tryPut, ) where import qualified Control.Concurrent.Split.Class as Split import qualified Control.Concurrent.MVar as MVar -import Prelude (IO, return, )+import Prelude (IO, Maybe, Bool, return, ) newtype T dir a = Cons (MVar.MVar a)@@ -33,5 +33,11 @@ take :: Out a -> IO a take (Cons v) = MVar.takeMVar v +tryTake :: Out a -> IO (Maybe a)+tryTake (Cons v) = MVar.tryTakeMVar v+ put :: In a -> a -> IO () put (Cons v) a = MVar.putMVar v a++tryPut :: In a -> a -> IO Bool+tryPut (Cons v) a = MVar.tryPutMVar v a