67a9d0f · distributed-process

git.iko.soy/distributed-process

ignore unused

commit67a9d0fda76022cb5c7cb041a88c771d04e061f1 authorTim Watson <tim@rabbitmq.com> dateMon 7 Jan 2013, 17:39 (14 years ago) parent529930c

1 file changed+1−1

unifiedsplit

distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+1−1

@@ -415,7 +415,7 @@ getProcessInfo pid =

415415 sendCtrlMsg dest $ GetInfo pid

416416 receiveWait [

417417 match (\(p :: ProcessInfo) -> return $ Just p)

418− , match (\(n :: ProcessInfoNone) -> return Nothing)

418+ , match (\(_ :: ProcessInfoNone) -> return Nothing)

419419 ]

420420 where mkNode :: NodeId -> NodeId -> Process (Maybe NodeId)

421421 mkNode them us = case them == us of