GitLab

I have a type Train and a share with a list of them:

import StdEnv
import iTasks

:: Train =
  { name :: String
  , pos  :: Cell
  , dest :: Cell
  , face :: Face
  }
:: Face = N | E | S | W
:: Cell = {x :: Int, y :: Int}
derive class iTask Cell, Train, Face

trains :: SimpleSDSLens [Train]
trains = sharedStore "trains" []

Start w = doTasks (ArrangeHorizontal @>> task) w
where
	task =
			updateSharedInformation [] trains
		-&&-
			updateSharedInformation [] trains

updating this share in parallel with a updateSharedInformation spoils the layout. See screenshots.

I use the 2019-10-01 version of iTasks on Windows with Firefox. This bug is still present on 2020-10-12, and is platform-independent. It seems that some layout functions are not applied correctly.