git.iko.soy/distributed-process
on master help sign in
Remove useless comment.
5d58e20Nicolas Wu
network-transport/src/Network/Transport/MVar.hs+1−2
compare with master
unifiedsplit
@@ -36,10 +36,9 @@ mkTransport = do
36 where
36 where
37 mkSendAddr :: Chans -> Int -> SendAddr
37 mkSendAddr :: Chans -> Int -> SendAddr
38 mkSendAddr channels addr = SendAddr
38 mkSendAddr channels addr = SendAddr
39− { connectWith = \_ -> mkSendEnd channels $ addr
39+ { connectWith = \_ -> mkSendEnd channels addr
40 , serialize = BS.pack (show addr)
40 , serialize = BS.pack (show addr)
41 }
41 }
42− -- mkSendEnd channels sendAddr
43
42
44 mkSendEnd :: Chans -> Int -> IO SendEnd
43 mkSendEnd :: Chans -> Int -> IO SendEnd
45 mkSendEnd channels addr = do
44 mkSendEnd channels addr = do