Tasks/mTaskTask.dcl

   1 definition module Tasks.mTaskTask
   2
   3 import iTasks
   4
   5 derive class iTask MTaskTask
   6
   7 :: MTaskTask = {
   8                 name :: String,
   9                 ident :: Int,
  10                 dateAdded :: DateTime
  11         }
  12
  13 makeTask :: String Int -> Task MTaskTask