git.iko.soy/distributed-process
on master help sign in
fixup! Implement MonadCatch, MonadThrow, MonadMask for Process.
9b4a059Alexander Vershilov
src/Control/Distributed/Process/Internal/Types.hs+10
compare with master
unifiedsplit
@@ -377,6 +377,16 @@ instance MonadMask Process where
377 liftRestore restoreIO = \p2 -> do
377 liftRestore restoreIO = \p2 -> do
378 ourLocalProc <- ask
378 ourLocalProc <- ask
379 liftIO $ restoreIO $ runLocalProcess ourLocalProc p2
379 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
380
390
381
391
382
392