@@ -377,6 +377,16 @@ instance MonadMask Process where
377377 liftRestore restoreIO = \p2 -> do
378378 ourLocalProc <- ask
379379 liftIO $ restoreIO $ runLocalProcess ourLocalProc p2
380+ uninterruptibleMask p = do
381+ lproc <- ask
382+ liftIO $ uninterruptibleMask $ \restore ->
383+ runLocalProcess lproc (p (liftRestore restore))
384+ where
385+ liftRestore :: (forall a. IO a -> IO a)
386+ -> (forall a. Process a -> Process a)
387+ liftRestore restoreIO = \p2 -> do
388+ ourLocalProc <- ask
389+ liftIO $ restoreIO $ runLocalProcess ourLocalProc p2
380390
381391
382392