mTaskManager :: Task ()
mTaskManager = (>>|) startupDevices $
viewmTasks ||-
- ((manageShares ||- whileUnchanged deviceStoreNP (manageDevices process))
- <<@ ArrangeSplit Vertical True)
+ ((manageShares ||- forever (manageDevices process)) <<@ ArrangeSplit Vertical True)
<<@ ArrangeWithSideBar 0 LeftSide 260 True
where
viewmTasks :: Task String