small tidyup
commitd08343d01963862959fa356be63fffc9c72447df
authorSimon Marlow <marlowsd@gmail.com>
dateWed 12 Dec 2012, 10:00 (14 years ago)
parent28d8a5f
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+1−2
@@ -793,8 +793,7 @@ sendCtrlMsg mNid signal = do
793793 }
794794 case mNid of
795795 Nothing -> do
796− ctrlChan <- localCtrlChan . processNode <$> ask
797− liftIO $ writeChan ctrlChan msg
796+ liftIO $ writeChan (localCtrlChan (processNode proc)) msg
798797 Just nid ->
799798 liftIO $ sendBinary (processNode proc)
800799 (ProcessIdentifier (processId proc))