Shares/mTaskShare.dcl

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