39c60c4 · distributed-process

git.iko.soy/distributed-process

Satisfy hlint

commit39c60c48f1fd8aca8e1bff33abcd43ca800f1a5c authorEdsko de Vries <edsko@edsko.net> dateSat 21 Jul 2012, 16:11 (14 years ago) parentde4b010

2 files changed+4−4

unifiedsplit

distributed-process/src/Control/Distributed/Process/Internal/Node.hs+2−2

@@ -47,8 +47,8 @@ sendPayload node from to payload = do

4747 Left _ -> return False

4848 Right _ -> return True

4949 Nothing -> return False

50− unless didSend $ do

51− writeChan (localCtrlChan node) $ NCMsg

50+ unless didSend $

51+ writeChan (localCtrlChan node) NCMsg

5252 { ctrlMsgSender = to

5353 , ctrlMsgSignal = Died to DiedDisconnect

5454 }

distributed-process/src/Control/Distributed/Process/Node.hs+2−2

@@ -458,7 +458,7 @@ ncEffectMonitor from them mRef = do

458458 -- (see also: notifyDied)

459459 liftIO $ sendBinary node

460460 (NodeIdentifier $ localNodeId node)

461− (NodeIdentifier $ processNodeId from) $

461+ (NodeIdentifier $ processNodeId from)

462462 NCMsg

463463 { ctrlMsgSender = NodeIdentifier (localNodeId node)

464464 , ctrlMsgSignal = Died them DiedUnknownId

@@ -581,7 +581,7 @@ notifyDied dest src reason mRef = do

581581 -- (see [Unified: Table 10]

582582 liftIO $ sendBinary node

583583 (NodeIdentifier $ localNodeId node)

584− (NodeIdentifier $ processNodeId dest) $

584+ (NodeIdentifier $ processNodeId dest)

585585 NCMsg

586586 { ctrlMsgSender = NodeIdentifier (localNodeId node)

587587 , ctrlMsgSignal = Died src reason