aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Main.hsc5
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index 7358a36..fd2bbdb 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -295,8 +295,9 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
-- property notify
-handle PropertyEvent { ev_event_type = t, ev_atom = a }
- | t == propertyNotify && a == wM_NAME = userCodeDef () =<< asks (logHook . config)
+handle event@(PropertyEvent { ev_event_type = t, ev_atom = a })
+ | t == propertyNotify && a == wM_NAME = asks (logHook . config) >>= userCodeDef () >>
+ broadcastMessage event
handle e@ClientMessageEvent { ev_message_type = mt } = do
a <- getAtom "XMONAD_RESTART"