小编j-k*_*eck的帖子

更新: ghcjs中存在一个问题:https://github.com/ghcjs/ghcjs/issues/296

我玩ghcjs和钠但3秒后我的应用程序不再发出事件.

一个最小的例子:

• 一个按钮:发出事件
• 计数器行为:计算按钮点击次数
• div:显示计数器行为
• 3秒后,div不再更新
• 如果我重新加载页面,计数器会再次更新 - 持续3秒

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Applicative ((<$>))
import           Control.Concurrent  (forkIO, threadDelay)
import           Control.Monad       (forever)
import           Data.Default        (def)
import           Data.Text           (Text, pack)
import           FRP.Sodium
import           JavaScript.JQuery   hiding (Event)


main :: IO ()
main = do
  body <- select "body"

  -- a button
  (btn, btnE) <- mkBtnE "Click"
  appendJQuery btn body


  -- a behavior: counter - increment when btnE (button event) arrive
  counterB <- sync …