git.iko.soy/distributed-process
on master help sign in
Fix MX notification of re-registration events
629a6faTim Watson
src/Control/Distributed/Process/Node.hs+5−1
compare with master
unifiedsplit
@@ -955,7 +955,11 @@ ncEffectRegister from label atnode mPid reregistration = do
955 do modify' $ registeredHereFor label ^= mPid
955 do modify' $ registeredHereFor label ^= mPid
956 updateRemote node currentVal mPid
956 updateRemote node currentVal mPid
957 case mPid of
957 case mPid of
958+ (Just p) -> do
959+ if reregistration
960+ then liftIO $ trace node (MxUnRegistered (fromJust currentVal) label)
961+ else return ()
958− (Just p) -> liftIO $ trace node (MxRegistered p label)
962+ liftIO $ trace node (MxRegistered p label)
959 Nothing -> liftIO $ trace node (MxUnRegistered (fromJust currentVal) label)
963 Nothing -> liftIO $ trace node (MxUnRegistered (fromJust currentVal) label)
960 newVal <- gets (^. registeredHereFor label)
964 newVal <- gets (^. registeredHereFor label)
961 ncSendToProcess from $ unsafeCreateUnencodedMessage $
965 ncSendToProcess from $ unsafeCreateUnencodedMessage $