+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
+ }