getAndDecodeResponseEvent запускается 3 раза, а не только один раз

Question

Этот маленький кусочек кода сбил меня с толку:

respCount считается до 3 в случае, если URL существует, до 2 в случае 404, но разве он не должен считаться только до 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" и "Просто"{\"status\":\"ok\"}"в терминале.
С GHCJS (какая бы версия не была в reflex-платформе примерно 3 недели назад), я также получаю "1"