1 implementation module Utils.Devices
8 getDeviceByName :: String -> Task MTaskDevice
9 getDeviceByName nm = get deviceStore @ find (\d->d.deviceChannels == nm)
10 >>= maybe (throw "Help, device not found") treturn
12 channels :: MTaskDevice -> Shared Channels
13 channels d = memoryShare d.deviceChannels ([], [], False)