Utils/Devices.icl

   1 implementation module Utils.Devices
   2
   3 import iTasks
   4 import mTask
   5 import Utils.SDS
   6 import Data.List
   7
   8 getDeviceByName :: String -> Task MTaskDevice
   9 getDeviceByName nm = get deviceStore @ find (\d->d.deviceChannels == nm)
  10         >>= maybe (throw "Help, device not found") treturn
  11
  12 channels :: MTaskDevice -> Shared Channels
  13 channels d = memoryShare d.deviceChannels ([], [], False)
  14