创建Haskel插座客户端

Question

我尝试将Haskell：

-- Logger
  putStrLn "Create socket"
  sock_logger <- socket AF_INET Stream 0     
  putStrLn "Bind socket"           
  connect sock_logger (SockAddrInet 5000 0)    
  putStrLn "Listen socket"  
  listen sock_logger 2                                  
  putStrLn "Logger listening on port 5000..."
  (conn_logger, _) <- accept sock_logger                       
  putStrLn "Logger connection accepted"

SCOCKET由其他应用程序创建的SCOCKET连接到创建的套接字。但是在连接sock_logger（sockaddrinet 5000 0）

helloworld-exe.EXE: Network.Socket.connect: <socket: 440>: failed (Cannot assign requested address (WSAEADDRNOTAVAIL))

之后 我使用SockAddrinet 5000 0创建的所有插座。这是否取决于addlress（也许需要127.0.0.1而不是Local Host？）

Answer 1

也许您正在寻找 tupletohostaddress ，如所示

connect sock_logger (SockAddrInet 5000 (tupleToHostAddress (127, 0, 0, 1)))

Answer 2

Thx Daniel Wagner，确实需要使用tupletohostaddress（127、0、0、1）和list.是错误的。正确版本：

  putStrLn "Create socket"
  sock_logger <- socket AF_INET Stream 0     
  putStrLn "Bind socket"           
  connect sock_logger (SockAddrInet 5000 (tupleToHostAddress (127, 0, 0, 1)))                      
  putStrLn "Connected to logger on port 5000..."