Haskell Event dRiven Bus