module test


import Data.Either
import iTasks

Start w = doTasks viewer w

viewer = parallel
	[(Embedded, \stl->appendTask Embedded (\_->t <<@ ArrangeHorizontal) stl
		>>= \tid->viewSharedInformation "Task Value" []
			(sdsFocus (Right tid) (taskListItemValue stl)) @! 42)
	] []

t =    updateInformation "Left" [] 42
  -||- (enterInformation "Right" [] -||- chooseAction [(Action "Fire", 42)])