git.iko.soy/distributed-process
on master help sign in
Merge pull request #246 from haskell-distributed/fix-node-monitoring
14227fdAlexander Vershilov
src/Control/Distributed/Process/Internal/Messaging.hs+1−1
compare with master
unifiedsplit
@@ -74,7 +74,7 @@ sendPayload node from to implicitReconnect payload = do
74 unless didSend $ do
74 unless didSend $ do
75 writeChan (localCtrlChan node) NCMsg
75 writeChan (localCtrlChan node) NCMsg
76 { ctrlMsgSender = to
76 { ctrlMsgSender = to
77− , ctrlMsgSignal = Died to DiedDisconnect
77+ , ctrlMsgSignal = Died (NodeIdentifier $ nodeOf to) DiedDisconnect
78 }
78 }
79
79
80sendBinary :: Binary a
80sendBinary :: Binary a