git.iko.soy/distributed-process
on master help sign in
cosmetic
9f5ce46Tim Watson
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+4−1
compare with master
unifiedsplit
@@ -372,7 +372,10 @@ instance Show ProcessExitException where
372 show (ProcessExitException pid _) = "exit-from=" ++ show pid
372 show (ProcessExitException pid _) = "exit-from=" ++ show pid
373
373
374-- | Catches ProcessExitException
374-- | Catches ProcessExitException
375−catchExit :: forall a b . (Show a, Serializable a) => Process b -> (ProcessId -> a -> Process b) -> Process b
375+catchExit :: forall a b . (Show a, Serializable a)
376+ => Process b
377+ -> (ProcessId -> a -> Process b)
378+ -> Process b
376catchExit act exitHandler = catch act handleExit
379catchExit act exitHandler = catch act handleExit
377 where
380 where
378 handleExit ex@(ProcessExitException from msg) =
381 handleExit ex@(ProcessExitException from msg) =
distributed-process/src/Control/Distributed/Process/Node.hs+1−2
@@ -154,8 +154,7 @@ import Control.Distributed.Process.Internal.Primitives
154 , sendChan
154 , sendChan
155 , ProcessExitException(..)
155 , ProcessExitException(..)
156 )
156 )
157−import Control.Distributed.Process.Internal.Types
157+import Control.Distributed.Process.Internal.Types (SendPort)
158− (SendPort)
159import qualified Control.Distributed.Process.Internal.Closure.BuiltIn as BuiltIn (remoteTable)
158import qualified Control.Distributed.Process.Internal.Closure.BuiltIn as BuiltIn (remoteTable)
160import Control.Distributed.Process.Internal.WeakTQueue (writeTQueue)
159import Control.Distributed.Process.Internal.WeakTQueue (writeTQueue)
161import qualified Control.Distributed.Process.Internal.StrictContainerAccessors as DAC
160import qualified Control.Distributed.Process.Internal.StrictContainerAccessors as DAC