definition module Shares.mTaskShare

import iTasks
import iTasks._Framework.Serialization
import mTask

derive class iTask MTaskShareType

derive gEditor MTaskShare
derive gText MTaskShare
derive JSONEncode MTaskShare
derive JSONDecode MTaskShare
derive gDefault MTaskShare
derive gEq MTaskShare

:: MTaskShareType = MTaskWithShare String | MTaskLens String
:: MTaskShare =
		{withTask :: String
		,identifier :: Int
		,realShare :: MTaskShareType
		,value :: BCValue
		}

manageShares :: [MTaskShare] -> Task ()

///makeShare :: String Int Dynamic -> Task MTaskShare
makeShare :: String Int BCValue -> Task MTaskShare