Add labelMVar to Control.Concurrent.Class.MonadMVar.Strict

Author: jasagredo

io-classes/strict-mvar/src/Control/Concurrent/Class/MonadMVar/Strict.hs

@@ -26,11 +26,12 @@ module Control.Concurrent.Class.MonadMVar.Strict
   , modifyMVarMasked_
   , modifyMVarMasked
   , tryReadMVar
+  , labelMVar
     -- * Re-exports
   , MonadMVar
   ) where
 
-import Control.Concurrent.Class.MonadMVar (MonadMVar)
+import Control.Concurrent.Class.MonadMVar (MonadMVar, MonadLabelledMVar)
 import Control.Concurrent.Class.MonadMVar qualified as Lazy
 
 --
@@ -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