在Haskell中运行Gloss代码时发布消息

import Control.Concurrent
import Graphics.Gloss

main :: IO ()
main = do
  -- 创建一个消息队列
  messageQueue <- newChan

  -- 创建一个线程来发布消息
  forkIO $ publishMessage messageQueue "Hello, World!"

  -- 运行Gloss代码
  play displayMode backgroundColor frameRate initialState (render messageQueue) handleEvent updateState
  where
    displayMode = InWindow "Gloss App" (800, 600) (0, 0)
    backgroundColor = white
    frameRate = 60
    initialState = -- 初始化状态
    render messageQueue state = -- 渲染函数
    handleEvent event state = -- 事件处理函数
    updateState deltaTime state = -- 更新状态函数

-- 发布消息的函数
publishMessage :: Chan String -> String -> IO ()
publishMessage messageQueue message = writeChan messageQueue message