summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index 72b7c61..7748b40 100644
--- a/Main.hs
+++ b/Main.hs
@@ -256,6 +256,6 @@ 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 = do logHook
+ | t == propertyNotify && a == wM_NAME = logHook `catchX` return ()
handle e = broadcastMessage e -- trace (eventName e) -- ignoring