创建Haskell套接字客户端

使用 Haskell 的 Network 库和 System.IO 库来创建套接字客户端。以下是示例代码：

import Network.Socket
import System.IO

main :: IO ()
main = do
  -- 创建套接字
  sock <- socket AF_INET Stream defaultProtocol
  -- 创建地址
  let addr = SockAddrInet 8080 (tupleToHostAddress (127,0,0,1))
  -- 连接服务器
  connect sock addr
  -- 发送消息
  hdl <- socketToHandle sock ReadWriteMode
  hPutStrLn hdl "Hello, Server!"
  -- 接收响应
  response <- hGetLine hdl
  putStrLn response
  -- 关闭套接字和句柄
  hClose hdl
  sClose sock

注意，创建套接字客户端需要指定地址和端口，其中默认端口为 8080。在以上示例中，我们使用本地环回地址 127.0.0.1 和端口 8080 连接服务器。发送和接收数据时，需要使用 System.IO 库中的 hPutStrLn 和 hGetLine 函数将套接字和句柄绑定起来。最后，记得在完成操作后关闭套接字和句柄。