repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update memory consumption on task acknowledgement
[mTask.git]
/
Utils
/
Devices.icl
diff --git
a/Utils/Devices.icl
b/Utils/Devices.icl
index
6a8052e
..
68eab35
100644
(file)
--- a/
Utils/Devices.icl
+++ b/
Utils/Devices.icl
@@
-5,10
+5,6
@@
import mTask
import Utils.SDS
import Data.List
import Utils.SDS
import Data.List
-getDeviceByName :: String -> Task MTaskDevice
-getDeviceByName nm = get deviceStore @ find (\d->d.deviceChannels == nm)
- >>= maybe (throw "Help, device not found") treturn
-
channels :: MTaskDevice -> Shared Channels
channels d = memoryShare d.deviceChannels ([], [], False)
channels :: MTaskDevice -> Shared Channels
channels d = memoryShare d.deviceChannels ([], [], False)