mTaskManager :: Task ()
mTaskManager = anyTask
[ viewmTasks @! ()
- , whileUnchanged sdsStore viewShares
+ , whileUnchanged sdsStore manageShares
, whileUnchanged deviceStore $ manageDevices process
- ] <<@ ApplyLayout layout
- where
- layout = sequenceLayouts
+ ] <<@ ApplyLayout (sequenceLayouts
[ arrangeWithSideBar 0 LeftSide 260 True
, arrangeSplit Vertical True
- ]
-
+ ])
+ where
viewmTasks :: Task String
viewmTasks = enterChoiceWithShared "Available mTasks" [ChooseFromList id] mTaskTaskStore
>&^ \sh->whileUnchanged sh $ \mi->forever (case mi of