git.iko.soy/distributed-process
on master help sign in
Explicit Network.Socket imports.
8c8f62bNicolas Wu
network-transport/src/Network/Transport/TCP.hs+5−1
compare with master
unifiedsplit
@@ -13,6 +13,10 @@ import Data.ByteString.Char8 (ByteString)
13import Data.IntMap (IntMap)
13import Data.IntMap (IntMap)
14import Data.Word
14import Data.Word
15import Network.Socket
15import 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 )
16import Safe
20import Safe
17
21
18import qualified Data.ByteString.Char8 as BS
22import qualified Data.ByteString.Char8 as BS
@@ -81,7 +85,7 @@ mkTransport (TCPConfig _hints host service) = withSocketsDo $ do
81 N.connect sock (addrAddress serverAddr)
85 N.connect sock (addrAddress serverAddr)
82 NBS.sendAll sock $ BS.pack . show $ chanId
86 NBS.sendAll sock $ BS.pack . show $ chanId
83 return $ SourceEnd
87 return $ SourceEnd
84− { Network.Transport.send = \bss -> NBS.sendMany sock bss
88+ { send = \bss -> NBS.sendMany sock bss
85 }
89 }
86
90
87 mkTargetEnd :: Chan ByteString -> TargetEnd
91 mkTargetEnd :: Chan ByteString -> TargetEnd