definition module Shares.mTaskShare import iTasks import iTasks._Framework.Serialization import mTask import Devices.mTaskDevice derive class iTask MTaskShare :: MTaskShare = {withTask :: [String] ,withDevice :: [String] ,identifier :: Int ,value :: BCValue } //Constructor makeShare :: String String Int BCValue -> MTaskShare //General viewing task manageShares :: [MTaskShare] -> Task MTaskShare //Clean out shares when a task has been removed cleanSharesTask :: Int MTaskDevice -> Task [MTaskShare] //Clean out shares when a device has been removed cleanSharesDevice :: String -> Task [MTaskShare] updateShare :: Int BCValue -> Task [MTaskShare] //updateShare :: Int BCValue -> Task ()