-manageDevices :: (MTaskDevice (Shared Channels) -> Task ()) [MTaskDevice] -> Task ()
-manageDevices processFun ds = anyTask [
- addDevice deviceStoreNP processFun <<@ Title "Add new device" @! ():
- [viewDevice processFun d
- <<@ Title d.deviceName\\d<-ds]]
- <<@ ArrangeWithTabs @! ()
+manageDevices :: (MTaskDevice (Shared Channels) -> Task ()) -> Task ()
+manageDevices processFun = get deviceStoreNP >>= \ds->anyTask [
+ addDevice processFun <<@ Title "Add new device" @! ():
+ [viewDevice processFun d <<@ Title d.deviceName\\d<-ds]]
+ <<@ ArrangeWithTabs
+ @! ()