Shares/mTaskShare.dcl

   1 definition module Shares.mTaskShare
   2
   3 import iTasks
   4 import iTasks._Framework.Serialization
   5
   6 derive class iTask MTaskShareType
   7 :: MTaskShareType = MTaskWithShare String | MTaskLens String
   8 :: MTaskShare =
   9                 {withTask :: String
  10                 ,identifier :: Int
  11                 ,realShare :: MTaskShareType
  12                 ,value :: String
  13                 }
  14
  15 manageShares :: [MTaskShare] -> Task ()
  16
  17 ///makeShare :: String Int Dynamic -> Task MTaskShare
  18 makeShare :: String Int String -> Task MTaskShare