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

Question

这段代码让我感到困惑：

respCount 在 url 存在的情况下计数为 3，在 404 的情况下计数为 2，但它不应该只计数为 1 吗？此外，实际请求只会发出一次。

我在 reflex 的最新开发分支 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

当我编译（一个稍微不同的版本，只修改为使用 warp 运行ner）和运行我得到“1”和只是 "{\"status\":\"ok\"}" 在终端中。
使用 GHCJS（大约 3 周前反射平台中的任何版本），我也得到“1”

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

getAndDecodeResponseEvent runs 3 times, instead of just once

reflex

reflex-dom