git.iko.soy/distributed-process
on master help sign in
ignore unused
67a9d0fTim Watson
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+1−1
compare with master
unifiedsplit
@@ -415,7 +415,7 @@ getProcessInfo pid =
415 sendCtrlMsg dest $ GetInfo pid
415 sendCtrlMsg dest $ GetInfo pid
416 receiveWait [
416 receiveWait [
417 match (\(p :: ProcessInfo) -> return $ Just p)
417 match (\(p :: ProcessInfo) -> return $ Just p)
418− , match (\(n :: ProcessInfoNone) -> return Nothing)
418+ , match (\(_ :: ProcessInfoNone) -> return Nothing)
419 ]
419 ]
420 where mkNode :: NodeId -> NodeId -> Process (Maybe NodeId)
420 where mkNode :: NodeId -> NodeId -> Process (Maybe NodeId)
421 mkNode them us = case them == us of
421 mkNode them us = case them == us of