@@ -632,10 +632,10 @@ ncEffectRegister from label atnode mPid reregistration = do
632 return $ (isNothing currentVal /= reregistration) &&
632 return $ (isNothing currentVal /= reregistration) &&
633 (not (isLocal node (ProcessIdentifier thepid) ) || isvalidlocal )
633 (not (isLocal node (ProcessIdentifier thepid) ) || isvalidlocal )
634 if isLocal node (NodeIdentifier atnode)
634 if isLocal node (NodeIdentifier atnode)
635− then when (isOk) $
635+ then do when (isOk) $
636− do modify' $ registeredHereFor label ^= mPid
636+ do modify' $ registeredHereFor label ^= mPid
637− updateRemote node currentVal mPid
637+ updateRemote node currentVal mPid
638− liftIO $ sendMessage node
638+ liftIO $ sendMessage node
639 (NodeIdentifier (localNodeId node))
639 (NodeIdentifier (localNodeId node))
640 (ProcessIdentifier from)
640 (ProcessIdentifier from)
641 WithImplicitReconnect
641 WithImplicitReconnect