Tasks/mTaskTask.icl

   1 implementation module Tasks.mTaskTask
   2
   3 import mTask
   4 import iTasks
   5
   6 import iTasks._Framework.Serialization
   7
   8 derive class iTask MTaskTask, MTaskInterval, Main, ByteCode, Stmt, Expr, BC, BCState, UserLED, RWST, Identity
   9
  10 makeTask :: String Int -> Task MTaskTask
  11 makeTask name ident = get currentDateTime
  12         @ \dt->{MTaskTask | name=name,ident=ident,dateAdded=dt}