Add labelMVar to the strict MVar library

input-output-hk · Oct 15, 2024 · 105b589 · 105b589
1 parent fc24459
commit 105b589
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/io-classes/CHANGELOG.md b/io-classes/CHANGELOG.md
@@ -6,6 +6,7 @@
 
 * Added `threadLabel` to `MonadThread`
 * Added `MonadLabelledMVar` class.
+* Added `labelMVar` to `Control.Concurrent.Class.MonadMVar.Strict`
 
 ### 1.7.0.0
 

diff --git a/io-classes/strict-mvar/src/Control/Concurrent/Class/MonadMVar/Strict.hs b/io-classes/strict-mvar/src/Control/Concurrent/Class/MonadMVar/Strict.hs
@@ -26,6 +26,7 @@ module Control.Concurrent.Class.MonadMVar.Strict
   , modifyMVarMasked_
   , modifyMVarMasked
   , tryReadMVar
+  , labelMVar
     -- * Re-exports
   , MonadMVar
   ) where
@@ -62,6 +63,9 @@ toLazyMVar = mvar
 fromLazyMVar :: Lazy.MVar m a -> StrictMVar m a
 fromLazyMVar = StrictMVar
 
+labelMVar :: MonadLabelledMVar m => StrictMVar m a -> String -> m ()
+labelMVar (StrictMVar m) = Lazy.labelMVar m
+
 newEmptyMVar :: MonadMVar m => m (StrictMVar m a)
 newEmptyMVar = fromLazyMVar <$> Lazy.newEmptyMVar