XMonadはxmobarを起動しません。

何らかの理由で私のxmonad設定はxmobarを起動しませんが、エラーは発生せず、コマンドはxmobar正常に起動します。これは私のものです。xmobar.hs

 import XMonad
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.DynamicLog
 import XMonad.Util.Run(spawnPipe)

 main = do
     xmproc <- spawnPipe "xmobar"
     xmonad $ defaultConfig
         { terminal    = "terminator"
         , layoutHook = avoidStruts $ layoutHook defaultConfig
         , manageHook=manageHook defaultConfig <+> manageDocks
         , logHook = dynamicLogWithPP $ sjanssenPP { ppOrder = reverse }
         , borderWidth = 1
         }