Busy indicator component
EugeneN opened this issue · 1 comments
EugeneN commented
This component should provide a sink for other components to put start job and end job events to. The component should then maintain a stack of active jobs, and display a visual busy indicator in the UI, just above the notifications, when there are more than 0 jobs running.
data BusyCmd = PushBusy | PopBusy
...
busyU <- busyComponent
...
busyU PushBusy
runSomeJob
busyU PopBusy