Replace deprecated symbol

cardano-foundation · Nov 27, 2020 · 8a82455 · 8a82455
1 parent 79c94bb
commit 8a82455
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/core/src/Ouroboros/Network/Client/Wallet.hs b/lib/core/src/Ouroboros/Network/Client/Wallet.hs
@@ -58,7 +58,7 @@ import Control.Monad.Class.MonadSTM
     , TQueue
     , atomically
     , isEmptyTQueue
-    , newEmptyTMVarM
+    , newEmptyTMVarIO
     , putTMVar
     , readTQueue
     , takeTMVar
@@ -594,7 +594,7 @@ send
     -> ((a -> m ()) -> cmd m)
     -> m a
 send queue cmd = do
-    tvar <- newEmptyTMVarM
+    tvar <- newEmptyTMVarIO
     atomically $ writeTQueue queue (cmd (atomically . putTMVar tvar))
     atomically $ takeTMVar tvar
 

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs
@@ -101,7 +101,7 @@ import Control.Monad.Class.MonadSTM
     , isEmptyTMVar
     , modifyTVar'
     , newEmptyTMVar
-    , newTMVarM
+    , newTMVarIO
     , newTQueue
     , newTVar
     , putTMVar
@@ -918,7 +918,7 @@ newObserver tr fetch = do
 -- since the previous time it was called.
 debounce :: (Eq a, MonadSTM m) => (a -> m ()) -> m (a -> m ())
 debounce action = do
-    mvar <- newTMVarM Nothing
+    mvar <- newTMVarIO Nothing
     pure $ \cur -> do
         prev <- atomically $ takeTMVar mvar
         unless (Just cur == prev) $ action cur