Shares/mTaskShare.dcl

   1 definition module Shares.mTaskShare
   2
   3 import iTasks
   4 import iTasks._Framework.Serialization
   5
   6 derive class iTask MTaskShareType
   7
   8 derive gEditor MTaskShare
   9 derive gText MTaskShare
  10 derive JSONEncode MTaskShare
  11 derive JSONDecode MTaskShare
  12 derive gDefault MTaskShare
  13 derive gEq MTaskShare
  14
  15 :: MTaskShareType = MTaskWithShare String | MTaskLens String
  16 :: MTaskShare =
  17                 {withTask :: String
  18                 ,identifier :: Int
  19                 ,realShare :: MTaskShareType
  20                 ,value :: String
  21                 ,dynvalue :: Dynamic
  22                 }
  23
  24 manageShares :: [MTaskShare] -> Task ()
  25
  26 ///makeShare :: String Int Dynamic -> Task MTaskShare
  27 makeShare :: String Int String -> Task MTaskShare