git.iko.soy/distributed-process
on master help sign in
Define generalizedBracket only for exceptions-0.10
fef7795Alexander Vershilov
distributed-process.cabal+1−1
compare with master
unifiedsplit
@@ -54,7 +54,7 @@ Library
54 distributed-static >= 0.2 && < 0.4,
54 distributed-static >= 0.2 && < 0.4,
55 rank1dynamic >= 0.1 && < 0.5,
55 rank1dynamic >= 0.1 && < 0.5,
56 syb >= 0.3 && < 0.8,
56 syb >= 0.3 && < 0.8,
57− exceptions >= 0.10,
57+ exceptions >= 0.5,
58 containers >= 0.5 && < 0.6,
58 containers >= 0.5 && < 0.6,
59 deepseq >= 1.3.0.1 && < 1.6
59 deepseq >= 1.3.0.1 && < 1.6
60 Exposed-modules: Control.Distributed.Process,
60 Exposed-modules: Control.Distributed.Process,
src/Control/Distributed/Process/Internal/Types.hs+2
@@ -366,12 +366,14 @@ instance MonadCatch Process where
366 lproc <- ask
366 lproc <- ask
367 liftIO $ catch (runLocalProcess lproc p) (runLocalProcess lproc . h)
367 liftIO $ catch (runLocalProcess lproc p) (runLocalProcess lproc . h)
368instance MonadMask Process where
368instance MonadMask Process where
369+#if MIN_VERSION_exceptions(0,10,0)
369 generalBracket acquire release inner = do
370 generalBracket acquire release inner = do
370 lproc <- ask
371 lproc <- ask
371 liftIO $
372 liftIO $
372 generalBracket (runLocalProcess lproc acquire)
373 generalBracket (runLocalProcess lproc acquire)
373 (\a e -> runLocalProcess lproc $ release a e)
374 (\a e -> runLocalProcess lproc $ release a e)
374 (runLocalProcess lproc . inner)
375 (runLocalProcess lproc . inner)
376+#endif
375 mask p = do
377 mask p = do
376 lproc <- ask
378 lproc <- ask
377 liftIO $ mask $ \restore ->
379 liftIO $ mask $ \restore ->