在Haskell中如何实现一个简单的TCP服务器

在Haskell中，可以使用network库来实现一个简单的TCP服务器。下面是一个实现服务器的例子：

import Network.Socket
import Control.Concurrent
import Control.Exception

main :: IO ()
main = withSocketsDo $ do
    -- 创建一个TCP套接字
    sock <- socket AF_INET Stream 0
    -- 设置地址可重用
    setSocketOption sock ReuseAddr 1
    -- 绑定地址和端口
    bind sock (SockAddrInet 8080 iNADDR_ANY)
    
    -- 监听连接
    listen sock 10
    putStrLn "Server started on port 8080"
    
    -- 开始接受连接
    acceptConnections sock

acceptConnections :: Socket -> IO ()
acceptConnections sock = do
    -- 接受一个连接
    (clientSock, clientAddr) <- accept sock
    putStrLn $ "Accepted connection from " ++ show clientAddr

    -- 在一个新的线程中处理客户端连接
    forkFinally (handleClient clientSock) (\_ -> close clientSock)
    
    -- 继续接受下一个连接
    acceptConnections sock
    
handleClient :: Socket -> IO ()
handleClient sock = do
    -- 接收客户端发送的数据
    msg <- recv sock 1024
    putStrLn $ "Received: " ++ msg
    
    -- 向客户端发送响应
    send sock "Hello from server!"
    
    -- 关闭客户端连接
    close sock

这个例子中创建了一个TCP套接字，并绑定到本地的8080端口。然后通过acceptConnections函数开始接受连接。在每个连接中，我们使用forkFinally函数在一个新的线程中处理客户端连接，使用handleClient函数来处理客户端的请求。在handleClient函数中，我们接收客户端发送的数据，并发送一个简单的响应，然后关闭连接。

你可以使用telnet命令或其他工具连接到这个服务器来测试它。例如，在命令行中输入telnet localhost 8080，然后按Enter键发送请求，服务器将返回响应。

注意，在真实的应用程序中，你可能需要处理异常情况，例如处理客户端连接失败或意外断开连接的情况。这个例子只展示了一个简单的实现。