照着网上的资料我是这写了段代码：
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。
要做怎样的修改？

h <- spawnPipe "dzen2 <options>"
具体看文档啊`XMonad.Hooks.DynamicLog'