repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
existential types continued
[mTask.git]
/
Shares
/
mTaskShare.icl
diff --git
a/Shares/mTaskShare.icl
b/Shares/mTaskShare.icl
index
7f9a2f4
..
0999cc2
100644
(file)
--- a/
Shares/mTaskShare.icl
+++ b/
Shares/mTaskShare.icl
@@
-39,20
+39,19
@@
viewShares :: [MTaskShare] -> Task MTaskShare
viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
>>| return (hd sh)
viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
>>| return (hd sh)
-viewShare :: MTaskShare -> Task
String
+viewShare :: MTaskShare -> Task
BCValue
viewShare m = viewSharedInformation "" [] (getSDSShare m)
<<@ Title ("SDS: " +++ toString m.identifier)
viewShare m = viewSharedInformation "" [] (getSDSShare m)
<<@ Title ("SDS: " +++ toString m.identifier)
-getSDSShare :: MTaskShare -> Shared
String
+getSDSShare :: MTaskShare -> Shared
BCValue
getSDSShare s=:{realShare=(MTaskWithShare id)}
= memoryShare id s.MTaskShare.value
getSDSShare s=:{realShare=(MTaskWithShare id)}
= memoryShare id s.MTaskShare.value
-makeShare :: String Int
String
-> Task MTaskShare
+makeShare :: String Int
BCValue
-> Task MTaskShare
makeShare withTask identifier value = treturn
{MTaskShare
|withTask=withTask
,identifier=identifier
,value=value
makeShare withTask identifier value = treturn
{MTaskShare
|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