Fix error case in node connection procedure.
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.
commitc0aa2f9537e6255ecde993a2e7bcc6f68f709ddf
authorAlexander Vershilov <alexander.vershilov@gmail.com>
dateFri 3 Jul 2015, 18:10 (11 years ago)
parent91350b2
src/Control/Distributed/Process/Internal/Messaging.hs+1−1
@@ -74,7 +74,7 @@ sendPayload node from to implicitReconnect payload = do
7474 unless didSend $ do
7575 writeChan (localCtrlChan node) NCMsg
7676 { ctrlMsgSender = to
77− , ctrlMsgSignal = Died to DiedDisconnect
77+ , ctrlMsgSignal = Died (NodeIdentifier $ nodeOf to) DiedDisconnect
7878 }
7979
8080sendBinary :: Binary a