getAndDecodeResponseEvent 运行 3 次，而不是只运行一次

Question

这段小代码让我很困惑：

如果 url 存在，

respCount

计数为 3，如果 404 则计数为 2，但它不应该只计数到 1 吗？此外，实际请求仅发出一次。

我正在使用反射的最新开发分支，reflex-dom

main :: IO ()
main = mainWidget widget

widget :: MonadWidget t m => m ()
widget = do
  postBuildEvt <- getPostBuild
  (respEvt :: Event t (Maybe Data.Aeson.Value)) <- getAndDecode $ "/api/config/ebb7e16b-8954-4320-829c-12d5e4fd3ea9" <$ postBuildEvt
  respCount <- count respEvt
  display respCount
  return () 

Answer 1

当我编译（略有不同的版本，仅修改为使用扭曲运行器）并运行时，我得到“1”并且 只是“{\”状态\”：\“确定\”}” 在终端中。
使用 GHCJS（无论 3 周前反射平台中的版本是什么），我也得到“1”