Small Haskell DBus implementation