Shares/mTaskShare.dcl

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