git.iko.soy/distributed-process
on master help sign in
getProcessInfo won't work if you send the reply to the wrong place
4784bdeTim Watson
distributed-process/src/Control/Distributed/Process/Node.hs+1−1
@@ -767,7 +767,7 @@ ncEffectGetInfo from pid =
767
767
768 let reg = registeredNames registered
768 let reg = registeredNames registered
769 dispatch (isLocal node (ProcessIdentifier from))
769 dispatch (isLocal node (ProcessIdentifier from))
770− pid
770+ from
771 node
771 node
772 ProcessInfo {
772 ProcessInfo {
773 infoNode = (processNodeId pid)
773 infoNode = (processNodeId pid)