git.iko.soy/distributed-process
on master help sign in
Minor clarification
commitfcfc19d4bdf1ea8c02ae727996330e5712a97f78 authorEdsko de Vries <edsko@edsko.net> dateWed 15 Aug 2012, 11:43 (14 years ago) parent6ea27d8
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
@@ -45,8 +45,8 @@ sendPayload node from to payload = do
4545 Just conn -> do
4646 didSend <- NT.send conn payload
4747 case didSend of
48− Left _ -> return False
49− Right _ -> return True
48+ Left _err -> return False
49+ Right () -> return True
5050 Nothing -> return False
5151 unless didSend $
5252 writeChan (localCtrlChan node) NCMsg