Support latest exceptions package.

qnikst · qnikst · commit d36cb0289043 · 2018-04-28T21:46:16.000+03:00
Introduce an implementation for generalizedBracket call.
diff --git a/distributed-process.cabal b/distributed-process.cabal
@@ -54,7 +54,7 @@ Library
                      distributed-static >= 0.2 && < 0.4,
                      rank1dynamic >= 0.1 && < 0.5,
                      syb >= 0.3 && < 0.8,
-                     exceptions >= 0.5,
+                     exceptions >= 0.10,
                      containers >= 0.5 && < 0.6,
                      deepseq >= 1.3.0.1 && < 1.6
   Exposed-modules:   Control.Distributed.Process,
diff --git a/src/Control/Distributed/Process/Internal/Types.hs b/src/Control/Distributed/Process/Internal/Types.hs
@@ -366,6 +366,12 @@ instance MonadCatch Process where
     lproc <- ask
     liftIO $ catch (runLocalProcess lproc p) (runLocalProcess lproc . h)
 instance MonadMask Process where
+  generalBracket acquire release inner = do
+    lproc <- ask
+    liftIO $
+      generalBracket (runLocalProcess lproc acquire)
+                     (\a e -> runLocalProcess lproc $ release a e)
+                     (runLocalProcess lproc . inner)
   mask p = do
       lproc <- ask
       liftIO $ mask $ \restore ->
