Extra.Lock

Documentation

withLock :: MonadIO m => FilePath -> m a -> m a

awaitLock :: (Num a, Ord a) => a -> Int -> [Char] -> IO b -> IO b

Like withLock, but instead of giving up immediately, try n times with a wait between each. awaitLock :: (MonadIO m) => Int -> Int -> FilePath -> m a -> m (Either Exception a)