X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Shares%2FmTaskShare.icl;h=e8ed9a2077b3e50fe27ddb78e0dacf8575f77e87;hb=3fe035b92e9bc0b745c57db64e78461b2f36b6d1;hp=fda2a39bf8e03ba089e5e43122d6b3e8eb9f6f66;hpb=ccf50ec9be06bc1b418b25225ca76d6e6ce743ac;p=mTask.git

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index fda2a39..e8ed9a2 100644
--- 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)
 
-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
+		,humanName=human
 		}
 
 import GenPrint, StdMisc, StdDebug, TTY
@@ -145,4 +146,4 @@ updateShareFromPublish dev ident val = set val
 	$ mapReadWriteError (deviceLens dev dummy)
 	$ deviceStoreNP
 where
-	dummy = {MTaskShare|value=BCValue 0,identifier=ident,withTask=[]}
+	dummy = {MTaskShare|humanName="",value=BCValue 0,identifier=ident,withTask=[]}