X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FDevices.icl;fp=Utils%2FDevices.icl;h=6a8052ebf4e2fcc2fb8d0947a3a8ca9372b7ab7a;hb=1d6cedaf81bbbe0ae869f20c9003bf018fb027ff;hp=0000000000000000000000000000000000000000;hpb=28eafcb52cf6d0ce0778f90beec2e08c046c10a0;p=mTask.git

diff --git a/Utils/Devices.icl b/Utils/Devices.icl
new file mode 100644
index 0000000..6a8052e
--- /dev/null
+++ b/Utils/Devices.icl
@@ -0,0 +1,14 @@
+implementation module Utils.Devices
+
+import iTasks
+import mTask
+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)
+