repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
separated devices
[mTask.git]
/
Tasks
/
mTaskTask.icl
diff --git
a/Tasks/mTaskTask.icl
b/Tasks/mTaskTask.icl
index
52191b5
..
845c077
100644
(file)
--- a/
Tasks/mTaskTask.icl
+++ b/
Tasks/mTaskTask.icl
@@
-28,7
+28,7
@@
sendTaskToDevice wta mTask (device, timeout) =
toSDSRecords :: [MTaskMSGSend] BCState MTaskDevice -> Task [MTaskShare]
toSDSRecords s st device = sequence ""
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`]
\\{sdsi,sdspub,sdsval}<-st.sdss
, (MTSds sdsi` _)<-s
| sdsi == sdsi`]