myEventHook: Fix syntax

Hooks with arguments (event hook and manage hook) should use mappend.

1 files changed, 5 insertions, 5 deletions

diff --git a/xmonad.hs b/xmonad.hs
index ca8b02e..546c168 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -354,11 +354,11 @@ myLogHook statusFile = do
       return $ pprWindowSet (sortTopics lastWs) urgents (ppWithDepth lastWs) winset
 
 
-myEventHook = do
-  ewmhDesktopsEventHook
-  serverModeEventHook
-  focusOnMouseMove
-  docksEventHook
+myEventHook =
+      ewmhDesktopsEventHook
+  <+> serverModeEventHook
+  <+> focusOnMouseMove
+  <+> docksEventHook
 
 myStartupHook = do
   ewmhDesktopsStartup