Fix error case in node connection procedure.

qnikst · qnikst · commit c0aa2f9537e6 · 2015-07-03T18:10:49.000+03:00
In case if new connection to remote EndPoint failed to create,
this means that all reliable connections (that are used in d-p)
also failed. As a result this means that we need to emit
`Died (node) Disconnect` event. Previously we emited
`Died typeOfReceiver Disconnect` event.
diff --git a/src/Control/Distributed/Process/Internal/Messaging.hs b/src/Control/Distributed/Process/Internal/Messaging.hs
@@ -74,7 +74,7 @@ sendPayload node from to implicitReconnect payload = do
   unless didSend $ do
     writeChan (localCtrlChan node) NCMsg
       { ctrlMsgSender = to
-      , ctrlMsgSignal = Died to DiedDisconnect
+      , ctrlMsgSignal = Died (NodeIdentifier $ nodeOf to) DiedDisconnect
       }
 
 sendBinary :: Binary a

Original file line number	Diff line number	Diff line change
`@@ -74,7 +74,7 @@ sendPayload node from to implicitReconnect payload = do`
`74`	`74`	`unless didSend $ do`
`75`	`75`	`writeChan (localCtrlChan node) NCMsg`
`76`	`76`	`{ ctrlMsgSender = to`
`77`		`- , ctrlMsgSignal = Died to DiedDisconnect`
	`77`	`+ , ctrlMsgSignal = Died (NodeIdentifier $ nodeOf to) DiedDisconnect`
`78`	`78`	`}`
`79`	`79`
`80`	`80`	`sendBinary :: Binary a`