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, MTaskShare
   8
   9 :: MTaskShareType = MTaskWithShare String | MTaskLens String
  10 :: MTaskShare =
  11                 {withTask :: String
  12                 ,identifier :: Int
  13                 ,realShare :: MTaskShareType
  14                 ,value :: BCValue
  15                 }
  16
  17 manageShares :: [MTaskShare] -> Task ()
  18
  19 ///makeShare :: String Int Dynamic -> Task MTaskShare
  20 makeShare :: String Int BCValue -> Task MTaskShare
  21
  22 updateShare :: Int BCValue -> Task ()