[ viewmTasks @! ()
, whileUnchanged sdsStore viewShares
, 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