implementation module Utils.Devices import iTasks import mTask import Utils.SDS import Data.List channels :: MTaskDevice -> Shared Channels channels d = memoryShare d.deviceChannels ([], [], False)