@@ -13,6 +13,10 @@ import Data.ByteString.Char8 (ByteString)
1313import Data.IntMap (IntMap)
1414import Data.Word
1515import Network.Socket
16+ ( AddrInfoFlag (AI_PASSIVE), HostName, ServiceName, Socket
17+ , SocketType (Stream), SocketOption (ReuseAddr)
18+ , accept, addrAddress, addrFlags, addrFamily, bindSocket, defaultProtocol
19+ , getAddrInfo, listen, setSocketOption, socket, withSocketsDo )
1620import Safe
1721
1822import qualified Data.ByteString.Char8 as BS
@@ -81,7 +85,7 @@ mkTransport (TCPConfig _hints host service) = withSocketsDo $ do
8185 N.connect sock (addrAddress serverAddr)
8286 NBS.sendAll sock $ BS.pack . show $ chanId
8387 return $ SourceEnd
84− { Network.Transport.send = \bss -> NBS.sendMany sock bss
88+ { send = \bss -> NBS.sendMany sock bss
8589 }
8690
8791 mkTargetEnd :: Chan ByteString -> TargetEnd