strict-stm: removed deprecated API

Author: coot

strict-stm/CHANGELOG.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## next version
+
+### Breaking changes
+
+* Removed deprecated API
+
 ## 1.0.0.1
 
 ### Non breaking changes

strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TMVar.hs

@@ -24,9 +24,6 @@ module Control.Concurrent.Class.MonadSTM.Strict.TMVar
   , tryReadTMVar
   , swapTMVar
   , isEmptyTMVar
-    -- * deprecated api
-  , newTMVarM
-  , newEmptyTMVarM
     -- * MonadLabelledSTM
   , labelTMVar
   , labelTMVarIO
@@ -81,20 +78,12 @@ newTMVar !a = StrictTMVar <$> Lazy.newTMVar a
 newTMVarIO :: MonadSTM m => a -> m (StrictTMVar m a)
 newTMVarIO !a = StrictTMVar <$> Lazy.newTMVarIO a
 
-newTMVarM :: MonadSTM m => a -> m (StrictTMVar m a)
-newTMVarM = newTMVarIO
-{-# DEPRECATED newTMVarM "Use newTVarIO" #-}
-
 newEmptyTMVar :: MonadSTM m => STM m (StrictTMVar m a)
 newEmptyTMVar = StrictTMVar <$> Lazy.newEmptyTMVar
 
 newEmptyTMVarIO :: MonadSTM m => m (StrictTMVar m a)
 newEmptyTMVarIO = StrictTMVar <$> Lazy.newEmptyTMVarIO
 
-newEmptyTMVarM :: MonadSTM m => m (StrictTMVar m a)
-newEmptyTMVarM = newEmptyTMVarIO
-{-# DEPRECATED newEmptyTMVarM "Use newEmptyTMVarIO" #-}
-
 takeTMVar :: MonadSTM m => StrictTMVar m a -> STM m a
 takeTMVar (StrictTMVar tmvar) = Lazy.takeTMVar tmvar
 

strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs

@@ -27,10 +27,6 @@ module Control.Concurrent.Class.MonadSTM.Strict.TVar
   , check
     -- ** Low-level API
   , checkInvariant
-    -- ** deprecated API
-  , updateTVar
-  , newTVarM
-  , newTVarWithInvariantM
     -- * MonadLabelSTM
   , labelTVar
   , labelTVarIO
@@ -107,10 +103,6 @@ newTVar !a = (\tvar -> mkStrictTVar (const Nothing) tvar)
 newTVarIO :: MonadSTM m => a -> m (StrictTVar m a)
 newTVarIO = newTVarWithInvariantIO (const Nothing)
 
-newTVarM :: MonadSTM m => a -> m (StrictTVar m a)
-newTVarM = newTVarIO
-{-# DEPRECATED newTVarM "Use newTVarIO" #-}
-
 newTVarWithInvariant :: (MonadSTM m, HasCallStack)
                      => (a -> Maybe String) -- ^ Invariant (expect 'Nothing')
                      -> a
@@ -129,13 +121,6 @@ newTVarWithInvariantIO  invariant !a =
         (\tvar -> mkStrictTVar invariant tvar)
     <$> Lazy.newTVarIO a
 
-newTVarWithInvariantM :: (MonadSTM m, HasCallStack)
-                      => (a -> Maybe String) -- ^ Invariant (expect 'Nothing')
-                      -> a
-                      -> m (StrictTVar m a)
-newTVarWithInvariantM = newTVarWithInvariantIO
-{-# DEPRECATED newTVarWithInvariantM "Use newTVarWithInvariantIO" #-}
-
 readTVar :: MonadSTM m => StrictTVar m a -> STM m a
 readTVar StrictTVar { tvar } = Lazy.readTVar tvar
 
@@ -164,11 +149,6 @@ swapTVar v a' = do
     return a
 
 
-updateTVar :: MonadSTM m => StrictTVar m s -> (s -> (a, s)) -> STM m a
-updateTVar = stateTVar
-{-# DEPRECATED updateTVar "Use stateTVar" #-}
-
-
 {-------------------------------------------------------------------------------
   Dealing with invariants
 -------------------------------------------------------------------------------}