getAndDecodeResponseEvent运行3次，而不是一次

Question

这小段代码让我感到困惑：

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

我正在研究反射的最新发展分支，反射域

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”