使用Haskell编写一个简单的TCP服务器

要使用Haskell编写一个简单的TCP服务器，我们可以使用Haskell提供的网络库network来实现。下面是一个示例代码：

import Network.Socket
import Control.Concurrent

-- 客户端处理逻辑
clientHandler :: Socket -> IO ()
clientHandler clientSocket = do
    -- 从客户端接收数据
    msg <- recv clientSocket 1024
    putStrLn $ "Received message: " ++ msg

    -- 向客户端发送欢迎消息
    let response = "Welcome to the server!"
    send clientSocket response

    -- 关闭客户端连接
    close clientSocket

-- TCP服务器逻辑
server :: String -> IO ()
server port = withSocketsDo $ do
    -- 创建套接字
    addrInfo <- getAddrInfo
        (Just (defaultHints {addrFlags = [AI_PASSIVE]}))
        Nothing (Just port)
    let serverAddr = head addrInfo

    -- 创建监听套接字
    sock <- socket (addrFamily serverAddr) Stream defaultProtocol
    setSocketOption sock ReuseAddr 1

    -- 绑定监听套接字到地址
    bind sock (addrAddress serverAddr)

    -- 监听套接字并处理连接
    listen sock 5
    putStrLn $ "Server is listening on port " ++ port

    -- 无限循环处理客户端连接
    forever $ do
        -- 接受客户端连接
        (clientSocket, clientAddr) <- accept sock
        putStrLn $ "Accepted connection from: " ++ show clientAddr

        -- 为每个客户端连接创建一个独立的线程处理
        _ <- forkIO $ clientHandler clientSocket

-- 主函数
main :: IO ()
main = do
    let port = "8080"
    server port

在上面的代码中，我们首先定义了客户端处理逻辑clientHandler，它接受一个客户端套接字作为参数。在这个函数中，我们首先从客户端接收数据，然后打印出接收到的消息。接着，我们向客户端发送欢迎消息，并关闭客户端连接。

然后，我们定义了TCP服务器逻辑server，它接受一个端口号作为输入。在这个函数中，我们首先创建一个套接字，并设置一些套接字选项。然后，我们绑定监听套接字到指定的地址并开始监听。在无限循环中，我们接受客户端连接，并为每个客户端连接创建一个独立的线程来处理。

最后，在main函数中，我们指定服务器监听的端口号，并调用server函数来启动服务器。

要编译和运行上述代码，可以使用以下命令：

$ ghc -o server server.hs
$ ./server

现在，你的TCP服务器将开始监听指定的端口号，并接受客户端连接。当客户端连接时，服务器将接收并打印接收到的消息，并向客户端发送欢迎消息。

你可以使用telnet或其他工具来测试这个服务器。例如，使用telnet连接到你的服务器的IP地址和端口号，并发送一条消息，你将在服务器控制台上看到打印出来的消息，并从服务器接收到欢迎消息。

希望这个简单的例子能够帮助你理解如何使用Haskell编写一个TCP服务器。