git.iko.soy/distributed-process
on master help sign in
Satisfy hlint
39c60c4Edsko de Vries
distributed-process/src/Control/Distributed/Process/Internal/Node.hs+2−2
compare with master
unifiedsplit
@@ -47,8 +47,8 @@ sendPayload node from to payload = do
47 Left _ -> return False
47 Left _ -> return False
48 Right _ -> return True
48 Right _ -> return True
49 Nothing -> return False
49 Nothing -> return False
50− unless didSend $ do
50+ unless didSend $
51− writeChan (localCtrlChan node) $ NCMsg
51+ writeChan (localCtrlChan node) NCMsg
52 { ctrlMsgSender = to
52 { ctrlMsgSender = to
53 , ctrlMsgSignal = Died to DiedDisconnect
53 , ctrlMsgSignal = Died to DiedDisconnect
54 }
54 }
distributed-process/src/Control/Distributed/Process/Node.hs+2−2
@@ -458,7 +458,7 @@ ncEffectMonitor from them mRef = do
458 -- (see also: notifyDied)
458 -- (see also: notifyDied)
459 liftIO $ sendBinary node
459 liftIO $ sendBinary node
460 (NodeIdentifier $ localNodeId node)
460 (NodeIdentifier $ localNodeId node)
461− (NodeIdentifier $ processNodeId from) $
461+ (NodeIdentifier $ processNodeId from)
462 NCMsg
462 NCMsg
463 { ctrlMsgSender = NodeIdentifier (localNodeId node)
463 { ctrlMsgSender = NodeIdentifier (localNodeId node)
464 , ctrlMsgSignal = Died them DiedUnknownId
464 , ctrlMsgSignal = Died them DiedUnknownId
@@ -581,7 +581,7 @@ notifyDied dest src reason mRef = do
581 -- (see [Unified: Table 10]
581 -- (see [Unified: Table 10]
582 liftIO $ sendBinary node
582 liftIO $ sendBinary node
583 (NodeIdentifier $ localNodeId node)
583 (NodeIdentifier $ localNodeId node)
584− (NodeIdentifier $ processNodeId dest) $
584+ (NodeIdentifier $ processNodeId dest)
585 NCMsg
585 NCMsg
586 { ctrlMsgSender = NodeIdentifier (localNodeId node)
586 { ctrlMsgSender = NodeIdentifier (localNodeId node)
587 , ctrlMsgSignal = Died src reason
587 , ctrlMsgSignal = Died src reason