lifted-base 0.2.2.2 → 0.2.3.0
raw patch · 5 files changed
+22/−6 lines, 5 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Control.Concurrent.QSem.Lifted: data QSem :: *
+ Control.Concurrent.QSem.Lifted: newQSem :: MonadBase IO m => Int -> m QSem
+ Control.Concurrent.QSem.Lifted: signalQSem :: MonadBase IO m => QSem -> m ()
+ Control.Concurrent.QSem.Lifted: waitQSem :: MonadBase IO m => QSem -> m ()
+ Control.Concurrent.QSemN.Lifted: data QSemN :: *
+ Control.Concurrent.QSemN.Lifted: newQSemN :: MonadBase IO m => Int -> m QSemN
+ Control.Concurrent.QSemN.Lifted: signalQSemN :: MonadBase IO m => QSemN -> Int -> m ()
+ Control.Concurrent.QSemN.Lifted: waitQSemN :: MonadBase IO m => QSemN -> Int -> m ()
+ Control.Concurrent.SampleVar.Lifted: data SampleVar a :: * -> *
+ Control.Concurrent.SampleVar.Lifted: emptySampleVar :: MonadBase IO m => SampleVar a -> m ()
+ Control.Concurrent.SampleVar.Lifted: isEmptySampleVar :: MonadBase IO m => SampleVar a -> m Bool
+ Control.Concurrent.SampleVar.Lifted: newEmptySampleVar :: MonadBase IO m => m (SampleVar a)
+ Control.Concurrent.SampleVar.Lifted: newSampleVar :: MonadBase IO m => a -> m (SampleVar a)
+ Control.Concurrent.SampleVar.Lifted: readSampleVar :: MonadBase IO m => SampleVar a -> m a
+ Control.Concurrent.SampleVar.Lifted: writeSampleVar :: MonadBase IO m => SampleVar a -> a -> m ()
Files
- Control/Concurrent/Lifted.hs +2/−2
- Control/Concurrent/MVar/Lifted.hs +14/−0
- Control/Concurrent/QSem/Lifted.hs +1/−0
- Control/Concurrent/QSemN/Lifted.hs +1/−0
- lifted-base.cabal +4/−4
Control/Concurrent/Lifted.hs view
@@ -55,9 +55,9 @@ -- * Communication abstractions , module Control.Concurrent.MVar.Lifted , module Control.Concurrent.Chan.Lifted-#if !MIN_VERSION_base(4,6,0) , module Control.Concurrent.QSem.Lifted , module Control.Concurrent.QSemN.Lifted+#if !MIN_VERSION_base(4,7,0) , module Control.Concurrent.SampleVar.Lifted #endif @@ -115,9 +115,9 @@ -- from lifted-base (this package): import Control.Concurrent.MVar.Lifted import Control.Concurrent.Chan.Lifted-#if !MIN_VERSION_base(4,6,0) import Control.Concurrent.QSem.Lifted import Control.Concurrent.QSemN.Lifted+#if !MIN_VERSION_base(4,7,0) import Control.Concurrent.SampleVar.Lifted #endif import Control.Exception.Lifted ( throwTo
Control/Concurrent/MVar/Lifted.hs view
@@ -42,6 +42,10 @@ #else , addMVarFinalizer #endif+#if MIN_VERSION_base(4,7,0)+ , withMVarMasked+ , tryReadMVar+#endif ) where @@ -220,4 +224,14 @@ addMVarFinalizer :: MonadBaseControl IO m => MVar a -> m () -> m () addMVarFinalizer = liftBaseDiscard . MVar.addMVarFinalizer {-# INLINABLE addMVarFinalizer #-}+#endif++#if MIN_VERSION_base (4,7,0)+-- | Generalized version of 'MVar.withMVarMasked'.+withMVarMasked :: MonadBaseControl IO m => MVar a -> (a -> m b) -> m b+withMVarMasked = liftBaseOp . MVar.withMVarMasked++-- | Generalized version of 'MVar.tryReadMVar'.+tryReadMVar :: MonadBase IO m => MVar a -> m (Maybe a)+tryReadMVar = liftBase . MVar.tryReadMVar #endif
Control/Concurrent/QSem/Lifted.hs view
@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -fno-warn-deprecations #-} {-# LANGUAGE CPP #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE FlexibleContexts #-}
Control/Concurrent/QSemN/Lifted.hs view
@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -fno-warn-deprecations #-} {-# LANGUAGE CPP #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE FlexibleContexts #-}
lifted-base.cabal view
@@ -1,5 +1,5 @@ Name: lifted-base-Version: 0.2.2.2+Version: 0.2.3.0 Synopsis: lifted IO operations from the base library License: BSD3 License-file: LICENSE@@ -37,14 +37,14 @@ Exposed-modules: Control.Exception.Lifted Control.Concurrent.MVar.Lifted Control.Concurrent.Chan.Lifted+ Control.Concurrent.QSem.Lifted+ Control.Concurrent.QSemN.Lifted Control.Concurrent.Lifted Data.IORef.Lifted Foreign.Marshal.Utils.Lifted System.Timeout.Lifted- if impl(ghc < 7.6)+ if impl(ghc < 7.8) Exposed-modules:- Control.Concurrent.QSem.Lifted- Control.Concurrent.QSemN.Lifted Control.Concurrent.SampleVar.Lifted Build-depends: base >= 3 && < 5