>>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
mTaskManager :: Task ()
-mTaskManager = anyTask
+mTaskManager = startupDevices >>| anyTask
[ viewmTasks @! ()
, whileUnchanged sdsStore manageShares
, whileUnchanged deviceStore $ manageDevices process