//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
$ mapReadWriteError (deviceLens dev dummy)
$ deviceStoreNP
where
- dummy = {MTaskShare|value=BCValue 0,identifier=ident,withTask=[]}
+ dummy = {MTaskShare|humanName="",value=BCValue 0,identifier=ident,withTask=[]}