@@ -36,10 +36,9 @@ mkTransport = do
3636 where
3737 mkSendAddr :: Chans -> Int -> SendAddr
3838 mkSendAddr channels addr = SendAddr
39− { connectWith = \_ -> mkSendEnd channels $ addr
39+ { connectWith = \_ -> mkSendEnd channels addr
4040 , serialize = BS.pack (show addr)
4141 }
42− -- mkSendEnd channels sendAddr
4342
4443 mkSendEnd :: Chans -> Int -> IO SendEnd
4544 mkSendEnd channels addr = do