definition module Shares.mTaskShare

import iTasks
import iTasks._Framework.Serialization

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

manageShares :: [MTaskShare] -> Task ()

makeShare :: String Int String -> Task MTaskShare