repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
have device logic go in withDevices
[mTask.git]
/
Shares
/
mTaskShare.icl
diff --git
a/Shares/mTaskShare.icl
b/Shares/mTaskShare.icl
index
7ae47e1
..
ee6282b
100644
(file)
--- a/
Shares/mTaskShare.icl
+++ b/
Shares/mTaskShare.icl
@@
-24,7
+24,7
@@
updateS sh = flip (<<@) (Title $ toString sh.identifier) $ forever $
viewSharedInformation "Current value" [] (getSDSShare sh)
||- (
updateSharedInformation "New value" [] (getSDSShare sh)
viewSharedInformation "Current value" [] (getSDSShare sh)
||- (
updateSharedInformation "New value" [] (getSDSShare sh)
- >>= \nv->allTasks (map
getDevice
sh.withDevice)
+ >>= \nv->allTasks (map
(withDevice treturn)
sh.withDevice)
>>= \devs->allTasks (map (sendMessages [MTUpd sh.identifier nv]) devs)
>>| treturn nv
)
>>= \devs->allTasks (map (sendMessages [MTUpd sh.identifier nv]) devs)
>>| treturn nv
)