import iTasks._Framework.Serialization
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 :: String
+ ,dynvalue :: Dynamic
}
manageShares :: [MTaskShare] -> Task ()