cleaned a bit xmonad.hs