Skip to content
Snippets Groups Projects

Add withMVarMasked

    • Closed Issue created by Herbert Valerio Riedel @hvr

    We already have modifyMVarMasked and modifyMVarMasked_, and so I propose to add

    {-|
  Like 'withMVar', but the @IO@ action in the second argument is executed
  with asynchronous exceptions masked.

  /Since: 4.7.0.0/
-}
{-# INLINE withMVarMasked_ #-}
withMVarMasked :: MVar a -> (a -> IO b) -> IO b
withMVarMasked m io =
  mask_ $ do
    a <- takeMVar m
    b <- io a `onException` putMVar m a
    putMVar m a
    return b

    any arguments against this addition?

    Trac metadata
    Trac field Value
    Version
    Type FeatureRequest
    TypeOfFailure OtherFailure
    Priority normal
    Resolution Unresolved
    Component libraries/base
    Test case
    Differential revisions
    BlockedBy
    Related
    Blocking
    CC simonmar
    Operating system
    Architecture
    To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information

    Child items 0

    • No child items are currently assigned. Use child items to break down this issue into smaller parts.

    Activity

    Please register or sign in to reply