new-layouts/test.icl

   1 module test
   2
   3 import iTasks
   4
   5 Start w = startEngine (t1 -|| t2 -|| t3 -|| t4) w
   6
   7 :: Field = {field :: String}
   8 :: Type1 = {fields :: [Field]}
   9 :: Type2 = Type Int [Field]
  10 :: Type3 :== [Field]
  11 derive class iTask Field, Type1, Type2
  12
  13 t1 :: Task Type1
  14 t1 = enterInformation () []
  15
  16 t2 :: Task Type2
  17 t2 = enterInformation () []
  18
  19 t3 :: Task Type3
  20 t3 = enterInformation () []
  21
  22 t4 :: Task (Type2, Type3)
  23 t4 = enterInformation () []