repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
named sds's
[mTask.git]
/
Shares
/
mTaskShare.icl
diff --git
a/Shares/mTaskShare.icl
b/Shares/mTaskShare.icl
index
fda2a39
..
e8ed9a2
100644
(file)
--- a/
Shares/mTaskShare.icl
+++ b/
Shares/mTaskShare.icl
@@
-60,11
+60,12
@@
updateShares dev tfun = upd (map upFun) (sdsFocus (Just (dev, -1)) deviceStore)
//viewShare m = viewSharedInformation "" [] (getSDSShare m)
// <<@ Title ("SDS: " +++ toString m.identifier)
//viewShare m = viewSharedInformation "" [] (getSDSShare m)
// <<@ Title ("SDS: " +++ toString m.identifier)
-makeShare :: String Int BCValue -> MTaskShare
-makeShare withTask identifier value = {MTaskShare
+makeShare :: String
String
Int BCValue -> MTaskShare
+makeShare withTask
human
identifier value = {MTaskShare
|withTask=[withTask]
,identifier=identifier
,value=value
|withTask=[withTask]
,identifier=identifier
,value=value
+ ,humanName=human
}
import GenPrint, StdMisc, StdDebug, TTY
}
import GenPrint, StdMisc, StdDebug, TTY
@@
-145,4
+146,4
@@
updateShareFromPublish dev ident val = set val
$ mapReadWriteError (deviceLens dev dummy)
$ deviceStoreNP
where
$ mapReadWriteError (deviceLens dev dummy)
$ deviceStoreNP
where
- dummy = {MTaskShare|value=BCValue 0,identifier=ident,withTask=[]}
+ dummy = {MTaskShare|
humanName="",
value=BCValue 0,identifier=ident,withTask=[]}