git.iko.soy/distributed-process
on master help sign in
Minor clarification
commit2e15819cfe119d1f715d08a6598c31dc732f1647 authorEdsko de Vries <edsko@edsko.net> dateWed 15 Aug 2012, 11:43 (14 years ago) parent8c9a470
1 file changed+2−2
distributed-process/src/Control/Distributed/Process/Internal/Node.hs+2−2
distributed-process/src/Control/Distributed/Process/Internal/Node.hs+2−2
@@ -44,8 +44,8 @@ sendPayload node from to payload = do
4444 Just conn -> do
4545 didSend <- NT.send conn payload
4646 case didSend of
47− Left _ -> return False
48− Right _ -> return True
47+ Left _err -> return False
48+ Right () -> return True
4949 Nothing -> return False
5050 unless didSend $
5151 writeChan (localCtrlChan node) NCMsg