old/228-rawvarcons-in-default-layout-for-certain-adt/test.icl

   1 module test
   2
   3 import iTasks
   4
   5 Start w = startEngineWithOptions
   6         (\args opts->(Just {opts & autoLayout=True}, []))
   7         (updateInformation () [] v) w
   8
   9 derive class iTask B, C
  10
  11 v :: B
  12 v = B2 C2
  13
  14 :: B = B1 | B2 C
  15 :: C = C1 Int | C2