1 definition module Shares.mTaskShare
4 import iTasks._Framework.Serialization
6 import Devices.mTaskDevice
8 derive class iTask MTaskShareType, MTaskShare
10 :: MTaskShareType = MTaskWithShare String | MTaskLens String
13 ,withDevice :: [String]
15 ,realShare :: MTaskShareType
19 manageShares :: [MTaskShare] -> Task ()
21 makeShare :: String String Int BCValue -> Task MTaskShare
23 updateShare :: Int BCValue -> Task ()