repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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
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
|withTask=withTask
,identifier=identifier
,value=value
+ ,dynvalue=dynamic value
,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
} >>= \sh->set value (getSDSShare sh) >>| treturn sh
,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
} >>= \sh->set value (getSDSShare sh) >>| treturn sh