Start :: *World -> *World
Start world = startEngine (mTaskManager
>>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
mTaskManager :: Task ()
Start :: *World -> *World
Start world = startEngine (mTaskManager
>>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
mTaskManager :: Task ()
[ viewmTasks @! ()
, whileUnchanged sdsStore manageShares
, whileUnchanged deviceStore $ manageDevices process
[ viewmTasks @! ()
, whileUnchanged sdsStore manageShares
, whileUnchanged deviceStore $ manageDevices process
[] = viewInformation "No devices yet" [] ()
ds = fromJust ('DM'.get mTaskTask allmTasks)
>>= \bc->(enterChoice "Choose Device" [ChooseFromDropdown \t->t.deviceName] ds
[] = viewInformation "No devices yet" [] ()
ds = fromJust ('DM'.get mTaskTask allmTasks)
>>= \bc->(enterChoice "Choose Device" [ChooseFromDropdown \t->t.deviceName] ds