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