Haskell GTK based battery tray applet