配置桌面遇到的问题

love_wisdom

照着网上的资料我是这写了段代码：
  import System.IO
  import XMonad.Hooks.FadeInactive
  import XMonad.Hooks.ManageDocks
  import XMonad.Hooks.UrgencyHook
  import XMonad
  import XMonad.Hooks.DynamicLog
  import XMonad.Util.Run
  myXmonadBar = "dzen2 -x '1440' -y '0' -h '24' -w '640' -ta 'l' -fg '#FFFFFF' -bg '#1B1D1E'"
  myLogHook :: Handle -> X ()
  myLogHook h = dynamicLogWithPP $ defaultPP {
          ppCurrent = dzenColor "#303030" "#909090" . pad
        , ppVisible = wrap "^bg(#000)^fg(#88""^bg(#333)"
        , ppLayout = dzenColor "#909090" "" .pad
        , ppOutput = hPutStrLn h
        , ppTitle = (""++) . dzenColor "White" "1B1D1E" . dzenEscape
        }
  main = do
        status <- spawnPipe myXmonadBar
        xmonad $ defaultConfig {
          borderWidth = 2
        , terminal = "xterm"
        , modMask  = mod4Mask
        , logHook  = myLogHook status
        }
结果还是看不到dzen2。
要做怎样的修改？