GitLab

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

:: 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" []

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

I use the Oktober 1 version of iTasks on Windows with Firefox.