Tasks/mTaskTask.icl

   1 implementation module Tasks.mTaskTask
   2
   3 import iTasks
   4
   5 derive class iTask MTaskTask
   6
   7 makeTask :: String Int -> Task MTaskTask
   8 makeTask name ident = get currentDateTime
   9         @ \dt->{MTaskTask | name=name,ident=ident,dateAdded=dt}