A very flexible Haskell status bar