BCValue is existential now

[mTask.git] / Shares / mTaskShare.icl

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 8eb7dc0..7f9a2f4 100644 (file)
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -8,6 +8,14 @@ import mTask
 from Data.Func import $
 
 derive class iTask MTaskShareType
+
+derive gEditor MTaskShare
+derive gText MTaskShare
+derive JSONEncode MTaskShare
+derive JSONDecode MTaskShare
+derive gDefault MTaskShare
+gEq{|MTaskShare|} m1 m2 = m1.identifier == m2.identifier
+
 manageShares :: [MTaskShare] -> Task ()
 manageShares shares =
        forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
@@ -45,5 +53,6 @@ makeShare withTask identifier value = treturn
                |withTask=withTask
                ,identifier=identifier
                ,value=value
+               ,dynvalue=dynamic value
                ,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
                } >>= \sh->set value (getSDSShare sh) >>| treturn sh