Shares/mTaskShare.dcl

   1 definition module Shares.mTaskShare
   2
   3 import iTasks
   4
   5 :: MTaskShare = {
   6                 withTask :: String,
   7                 identifier :: Int,
   8                 initVal :: String,
   9                 realShare :: String
  10         }
  11
  12 instance zero MTaskShare
  13
  14 manageShares :: [MTaskShare] -> Task ()