Tasks/mTaskTask.dcl

   1 definition module Tasks.mTaskTask
   2
   3 import Devices.mTaskDevice
   4 import mTask
   5 import iTasks
   6
   7 derive class iTask MTaskTask, MTaskInterval, Main, ByteCode, Stmt, Expr, BC, BCState
   8
   9 :: MTaskTask = {
  10                 name :: String,
  11                 ident :: Int,
  12                 dateAdded :: DateTime
  13         }
  14
  15 makeTask :: String Int -> Task MTaskTask