packages feed

distributed-process 0.7.3 → 0.7.4

raw patch · 5 files changed

+17/−13 lines, 5 filesdep ~exceptionsPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: exceptions

API changes (from Hackage documentation)

- Control.Distributed.Process.Management.Internal.Trace.Types: instance Control.Distributed.Process.Management.Internal.Trace.Types.Traceable Control.Distributed.Process.Internal.Types.ProcessId
- Control.Distributed.Process.Management.Internal.Trace.Types: instance Control.Distributed.Process.Management.Internal.Trace.Types.Traceable GHC.Base.String
- Control.Distributed.Process: closure :: Static (ByteString -> a) -> ByteString -> Closure a
+ Control.Distributed.Process: closure :: () => Static (ByteString -> a) -> ByteString -> Closure a
- Control.Distributed.Process: liftIO :: MonadIO m => forall a. IO a -> m a
+ Control.Distributed.Process: liftIO :: MonadIO m => forall a. () => IO a -> m a
- Control.Distributed.Process.Management.Internal.Agent: type AgentConfig = (Tracer, Weak (CQueue Message), ((TChan Message, TChan Message) -> Process ()) -> IO ProcessId)
+ Control.Distributed.Process.Management.Internal.Agent: type AgentConfig = (Tracer, Weak (CQueue Message), (((TChan Message, TChan Message) -> Process ()) -> IO ProcessId))
- Control.Distributed.Process.Management.Internal.Types: type Fork = Process () -> IO ProcessId
+ Control.Distributed.Process.Management.Internal.Types: type Fork = (Process () -> IO ProcessId)

Files

ChangeLog view
@@ -1,3 +1,11 @@+[Unrealeased]++*++2018-06-12 Facundo Domínguez <facundo.dominguez@tweag.io> 0.7.4++* Added support for exceptions >= 0.10+ 2017-08-31 Facundo Domínguez <facundo.dominguez@tweag.io> 0.7.3  * Drop support for ghc-7.8.* and earlier.
distributed-process.cabal view
@@ -1,5 +1,5 @@ Name:          distributed-process-Version:       0.7.3+Version:       0.7.4 Cabal-Version: >=1.8 Build-Type:    Simple License:       BSD3
src/Control/Distributed/Process/Internal/Types.hs view
@@ -366,6 +366,14 @@     lproc <- ask     liftIO $ catch (runLocalProcess lproc p) (runLocalProcess lproc . h) instance MonadMask Process where+#if MIN_VERSION_exceptions(0,10,0)+  generalBracket acquire release inner = do+    lproc <- ask+    liftIO $+      generalBracket (runLocalProcess lproc acquire)+                     (\a e -> runLocalProcess lproc $ release a e)+                     (runLocalProcess lproc . inner)+#endif   mask p = do       lproc <- ask       liftIO $ mask $ \restore ->
src/Control/Distributed/Process/Management/Internal/Trace/Types.hs view
@@ -43,7 +43,6 @@ import Data.Binary import Data.List (intersperse) import Data.Set (Set)-import qualified Data.Set as Set (fromList) import Data.Typeable import GHC.Generics @@ -158,12 +157,3 @@  getCurrentTraceClient :: MxEventBus -> SendPort (Maybe ProcessId) -> IO () getCurrentTraceClient t s = publishEvent t (unsafeCreateUnencodedMessage s)--class Traceable a where-  uod :: [a] -> TraceSubject--instance Traceable ProcessId where-  uod = TraceProcs . Set.fromList--instance Traceable String where-  uod = TraceNames . Set.fromList
src/Control/Distributed/Process/Node.hs view
@@ -37,7 +37,6 @@   , filterWithKey   , foldlWithKey   )-import qualified Data.Set as Set import Data.Time.Format (formatTime) #if MIN_VERSION_time(1,5,0) import Data.Time.Format (defaultTimeLocale)@@ -55,7 +54,6 @@   , union   ) import Data.Foldable (forM_)-import Data.List (foldl') import Data.Maybe (isJust, fromJust, isNothing, catMaybes) import Data.Typeable (Typeable) import Control.Category ((>>>))