git.iko.soy/distributed-process
on master help sign in
cosmetic
commit9f5ce4687db29fde0df65d212ea082b3a0ef0d25 authorTim Watson <tim@rabbitmq.com> dateWed 16 Jan 2013, 23:41 (14 years ago) parent8d4eeb2
2 files changed+5−3
compare with master
unifiedsplit
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+4−1 distributed-process/src/Control/Distributed/Process/Node.hs+1−2
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+4−1
@@ -372,7 +372,10 @@ instance Show ProcessExitException where
372372 show (ProcessExitException pid _) = "exit-from=" ++ show pid
373373
374374-- | 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
376379catchExit act exitHandler = catch act handleExit
377380 where
378381 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
154154 , sendChan
155155 , ProcessExitException(..)
156156 )
157−import Control.Distributed.Process.Internal.Types
158− (SendPort)
157+import Control.Distributed.Process.Internal.Types (SendPort)
159158import qualified Control.Distributed.Process.Internal.Closure.BuiltIn as BuiltIn (remoteTable)
160159import Control.Distributed.Process.Internal.WeakTQueue (writeTQueue)
161160import qualified Control.Distributed.Process.Internal.StrictContainerAccessors as DAC