如何在Haskell中使用WebSockets进行实时通信

在Haskell中使用WebSockets进行实时通信可以使用一些现成的库，比如websockets和wai-websockets。下面是一个简单的示例使用websockets库：

首先，您需要在您的项目中添加websockets库的依赖。您可以在您的.cabal文件中添加以下内容：

build-depends:       base >= 4.9 && < 5
                   , websockets

然后，您可以编写一个简单的WebSocket服务器和客户端的示例代码：

-- server.hs
import Network.WebSockets

main :: IO ()
main = runServer "127.0.0.1" 8080 $ \pending -> do
  conn <- acceptRequest pending
  sendTextData conn ("Hello, client!" :: Text)
  msg <- receiveData conn
  putStrLn $ "Received message from client: " ++ show msg
  sendClose conn ("Bye!" :: Text)

-- client.hs
import Network.WebSockets

main :: IO ()
main = do
  conn <- connect "127.0.0.1" 8080 "/" $ \conn -> do
    msg <- receiveData conn
    putStrLn $ "Received message from server: " ++ show msg
    sendTextData conn ("Hello, server!" :: Text)
    msg2 <- receiveData conn
    putStrLn $ "Received message from server: " ++ show msg2

您可以使用ghc编译并运行这两个文件，分别作为WebSocket服务器和客户端。这个简单的例子展示了如何使用websockets库在Haskell中实现WebSocket通信。您可以根据您的需求进一步扩展这个例子。