Merge pull request #246 from haskell-distributed/fix-node-monitoring
Fix error case in node connection procedure.
commit14227fdc9007f9a083b3b97272ec409e644b7d9b
authorAlexander Vershilov <alexander.vershilov@gmail.com>
dateMon 6 Jul 2015, 11:55 (11 years ago)
parent91350b2c0aa2f9
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