管理 Haskell 中的事件

Question

我目前正在 Haskell 中使用 GHCJS。DOM/JSDOM 旨在创建一个小型 Web 应用程序。为了捕获“点击按钮”事件，我编写了以下代码：

releaseAction <- on element click $ do
    w <- currentWindowUnchecked
    alert w "I was clicked!"
releaseAction

（这是取自页面 https://hackage.haskell.org/package/jsaddle-dom-0.9.4.1/docs/JSDOM-EventM.html 的示例）；问题如下：如果我删除最后一行（所以我删除了 releaseAction），那么我可以根据需要多次单击“元素”，然后根据需要多次触发事件。另一方面，如果我不删除最后一行，这将取消该事件，从而阻止我触发一个事件。我的目标是让用户只点击一次“元素”然后这个事件必须是禁止。我怎样才能完成这项工作？谢谢

Answer 1

您可以使用 mfix:

mfix $ \releaseAction -> on element click $ do
    w <- currentWindowUnchecked
    alert w "I was clicked!"
    releaseAction

管理 Haskell 中的事件

manage events in Haskell

haskell

jsdom

ghcjs

ghcjs-dom