mTaskManager :: Task ()
mTaskManager = anyTask
[ viewmTasks @! ()
- , whileUnchanged sdsStore viewShares
+ , whileUnchanged sdsStore manageShares
, whileUnchanged deviceStore $ manageDevices process
] <<@ ApplyLayout (sequenceLayouts
[ arrangeWithSideBar 0 LeftSide 260 True