work now please

config/xmonad/xmonad.hs

@@ -235,7 +235,8 @@ myEventHook = mempty
 -- Perform an arbitrary action on each internal state change or X event.
 -- See the 'XMonad.Hooks.DynamicLog' extension for examples.
 --
-myLogHook = return ()
+myLogHook :: Handle -> X ()
+myLogHook h = dynamicLogWithPP $ def { ppOutput = hPutStrLn h }
 
 ------------------------------------------------------------------------
 -- Startup hook
@@ -254,8 +255,10 @@ myStartupHook = do
 -- Run xmonad with the settings you specify. No need to modify this.
 --
 main = do 
-  xmproc <- spawnPipe "xmobar"
-  xmonad defaults
+  h <- spawnPipe "xmobar"
+  xmonad defaults {
+      logHook = myLogHook h
+  }
 
 -- A structure containing your configuration settings, overriding
 -- fields in the default config. Any you don't override, will