newtype-editor/test.icl

   1 module test
   2
   3 import iTasks
   4
   5 derive class iTask T1
   6
   7 :: T1 =
   8         { f1 :: Bool
   9         , f2 :: Bool
  10         }
  11
  12 Start w = startEngine t w
  13
  14 t :: Task (Maybe T1)
  15 t = enterInformation () []