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