derive class iTask MTaskShare
manageShares :: Task [MTaskDevice]
-manageShares = viewInformation "" [] []//whileUnchanged deviceStoreNP
-// $ \devs->case devs of
-// [] = viewInformation "No devices yet" [] []
-// _ = allTasks (map manageSharesOnDevice devs)
+manageShares = whileUnchanged deviceStoreNP
+ $ \devs->case devs of
+ [] = viewInformation "No devices yet" [] []
+ _ = allTasks (map manageSharesOnDevice devs)
manageSharesOnDevice :: MTaskDevice -> Task MTaskDevice
manageSharesOnDevice dev = (case dev.deviceShares of