listDevices :: DeviceManager -> Sys [Text]
listDevices dm = atomically (listDevices' dm)
listDevices :: DeviceManager -> Sys [Text]
listDevices dm = atomically (listDevices' dm)
listDevices dm = atomically (listDevices' dm)