如何在haskell项目中添加带有haskell模块的javascript事件监听器

module Event where

import GHCJS.Types
import GHCJS.Foreign

-- 定义事件监听器类型
newtype EventListener = EventListener JSVal

-- 注册事件监听器
foreign import javascript unsafe "document.addEventListener($1, $2)"
  registerEventListener :: JSString -> EventListener -> IO ()

-- 创建事件监听器
createEventListener :: JSString -> IO EventListener
createEventListener eventType = do
  callback <- syncCallback1 ThrowWouldBlock $ \_ -> do
    -- 在事件发生时调用Haskell中的处理函数
    handleEvent
  return $ EventListener $ callbackRef callback

-- 处理事件的函数
handleEvent :: IO ()
handleEvent = putStrLn "Event occurred!"

import Event
import GHCJS.Foreign

main :: IO ()
main = do
  -- 加载JavaScript运行环境
  runJavaScript $ do
    -- 创建事件监听器并注册
    eventListener <- createEventListener "click"
    registerEventListener "click" eventListener

// 在事件发生时调用Haskell中的事件处理函数
function triggerEvent() {
  // 触发click事件
  document.dispatchEvent(new Event('click'));
}