extra 1.4.11 → 1.4.12
raw patch · 4 files changed
+9/−3 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.Tuple.Extra: infixr 3 &&&
- Data.Typeable.Extra: [Refl] :: (:~:) k a a
- Extra: [Refl] :: (:~:) k a a
- Extra: infixr 3 &&&
+ Control.Concurrent.Extra: writeVar :: Var a -> a -> IO ()
+ Data.Typeable.Extra: Refl :: (:~:) k b b
+ Extra: Refl :: (:~:) k b b
+ Extra: writeVar :: Var a -> a -> IO ()
+ System.Directory.Extra: withCurrentDirectory :: FilePath -> IO a -> IO a
- Data.Typeable.Extra: Proxy :: Proxy k
+ Data.Typeable.Extra: Proxy :: Proxy
- Data.Typeable.Extra: data (:~:) k (a :: k) (b :: k) :: forall k. k -> k -> *
+ Data.Typeable.Extra: data (:~:) (a :: k) (b :: k) :: k -> k -> *
- Data.Typeable.Extra: data Proxy k (t :: k) :: forall k. k -> *
+ Data.Typeable.Extra: data Proxy (t :: k) :: k -> *
- Extra: Proxy :: Proxy k
+ Extra: Proxy :: Proxy
- Extra: data (:~:) k (a :: k) (b :: k) :: forall k. k -> k -> *
+ Extra: data (:~:) (a :: k) (b :: k) :: k -> k -> *
- Extra: data Proxy k (t :: k) :: forall k. k -> *
+ Extra: data Proxy (t :: k) :: k -> *
Files
- CHANGES.txt +2/−0
- extra.cabal +1/−1
- src/Control/Concurrent/Extra.hs +5/−1
- src/Extra.hs +1/−1
CHANGES.txt view
@@ -1,5 +1,7 @@ Changelog for Extra +1.4.12+ Add writeVar 1.4.11 Require QuickCheck 2.9 #23, deprecate offsetTimeIncrease and subtract
extra.cabal view
@@ -1,7 +1,7 @@ cabal-version: >= 1.10 build-type: Simple name: extra-version: 1.4.11+version: 1.4.12 license: BSD3 license-file: LICENSE category: Development
src/Control/Concurrent/Extra.hs view
@@ -19,7 +19,7 @@ -- * Lock Lock, newLock, withLock, withLockTry, -- * Var- Var, newVar, readVar, modifyVar, modifyVar_, withVar,+ Var, newVar, readVar, writeVar, modifyVar, modifyVar_, withVar, -- * Barrier Barrier, newBarrier, signalBarrier, waitBarrier, waitBarrierMaybe, ) where@@ -178,6 +178,10 @@ -- | Read the current value of the 'Var'. readVar :: Var a -> IO a readVar (Var x) = readMVar x++-- | Write a value to become the new value of 'Var'.+writeVar :: Var a -> a -> IO ()+writeVar v x = modifyVar_ v $ const $ return x -- | Modify a 'Var' producing a new value and a return result. modifyVar :: Var a -> (a -> IO (a, b)) -> IO b
src/Extra.hs view
@@ -8,7 +8,7 @@ module Extra( -- * Control.Concurrent.Extra -- | Extra functions available in @"Control.Concurrent.Extra"@.- getNumCapabilities, setNumCapabilities, withNumCapabilities, forkFinally, once, onceFork, Lock, newLock, withLock, withLockTry, Var, newVar, readVar, modifyVar, modifyVar_, withVar, Barrier, newBarrier, signalBarrier, waitBarrier, waitBarrierMaybe,+ getNumCapabilities, setNumCapabilities, withNumCapabilities, forkFinally, once, onceFork, Lock, newLock, withLock, withLockTry, Var, newVar, readVar, writeVar, modifyVar, modifyVar_, withVar, Barrier, newBarrier, signalBarrier, waitBarrier, waitBarrierMaybe, -- * Control.Exception.Extra -- | Extra functions available in @"Control.Exception.Extra"@. retry, retryBool, showException, stringException, errorIO, displayException, ignore, catch_, handle_, try_, catchJust_, handleJust_, tryJust_, catchBool, handleBool, tryBool,