GitLab

When running the following program, the continue button is disabled until the user selects a value in the drop-down box. As the selected value is ignored by the >>| combinator the button should always be enabled.

module Main
import iTasks
Start world = startEngine main world
main = enterChoice () [] [1,2,3] >>| viewInformation "hello" [] "world"

The implementation of >>| should be:

(>>|) taskA taskB = step taskA (const Nothing)
  [ OnAction ActionContinue (const $ Just taskB)
  , OnValue (ifStable $ const taskB)
  ]