@@ -120,12 +120,12 @@ forkProcess :: LocalNode -> Process () -> IO ProcessId
120120forkProcess node (Process action) = do
121121
122122 (sendAddr, chan) <- Trans.newConnection (ndTransport node)
123− sendEnd <- Trans.connectWith sendAddr Trans.SendHints
123+ sendEnd <- Trans.connect sendAddr
124124 processTable@(ProcessTable lpid _) <- takeMVar (ndProcessTable node)
125125 let pid = ProcessId sendEnd NodeId lpid
126126 forkIO $ do
127127 tid <- myThreadId
128− lpid <- putMVar (ndProcessTable node) (insertProcess tid processTable)
128+ putMVar (ndProcessTable node) (insertProcess tid processTable)
129129 queue <- newCQueue
130130 forkIO $ receiverPump chan queue
131131