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)