(PureScript)我如何在一个非Eff的一元上下文中运行一个DOM事件侦听器回调？

module Main where

import Prelude
import Effect (Effect)
import Effect.Console (log)
import Effect.DOM (DOM, runDOM)
import Effect.DOM.HTML (document, getElementById)
import Effect.DOM.Event (Event, addEventListener)
import Effect.DOM.HTML.Types (Element)
import Effect.DOM.HTML.Window (EventTarget)

foreign import data EventObject :: Type

foreign import data DOMElement :: Type

foreign import runCallback :: (EventObject -> DOMElement -> Effect Unit) -> Event -> Effect Unit

foreign import addEventListenerImpl :: EventTarget -> String -> (Event -> Effect Unit) -> Effect Unit

main :: Effect Unit
main = runDOM do
  Just doc <- document
  Just element <- getElementById "myElement"
  addEventListenerImpl element "click" (runCallback handleEvent)

handleEvent :: EventObject -> DOMElement -> Effect Unit
handleEvent event element = do
  log "Event triggered!"
  log $ "Event type: " <> event.type
  log $ "Target element: " <> element.tagName