orr stalls the view when using AVars

[sloosch]

Hi!

Having this minimal example and using the current master

module Main where

import Prelude

import Concur.React.DOM as D
import Concur.React.Run (runWidgetInDom)
import Control.MultiAlternative (orr)
import Debug.Trace (traceM)
import Effect (Effect)
import Effect.Aff.AVar as AVar
import Effect.Aff.Class (liftAff)

main :: Effect Unit
main = do
  runWidgetInDom "main" do
    avar <- liftAff $ AVar.empty
    text <- orr [liftAff $ AVar.take avar, (liftAff $ AVar.put "hello" avar) *> D.text "old view"]
    traceM text
    D.text text

does output the correct console log (traceM) but still displays the old view.
The problem can be "fixed" by

• Adding pulse to the take widget, which feels arbitrary
• Making the take widget the last in orr, which does destroy the order in the view

I've looked into the code and found a reference to #16 which seems like a similar issue.

[ajnsit]

Thanks for the report! I'm looking into this.