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)