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 channels :: MTaskDevice -> Shared Channels
   9 channels d = memoryShare d.deviceChannels ([], [], False)
  10