sharename i = device.deviceChannels +++ "-" +++ toString i
toSDSRecords :: [MTaskMSGSend] BCState MTaskDevice -> Task [MTaskShare]
- toSDSRecords s st device = sequence ""
- [makeShare wta device sdsi sdsval
+ toSDSRecords s st device = treturn
+ [makeShare wta device.deviceName sdsi sdsval
\\{sdsi,sdspub,sdsval}<-st.sdss
, (MTSds sdsi` _)<-s
| sdsi == sdsi`]