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