From a51de85e2f7879b88173fb12d404b6cbc85e3b2c Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 12 Oct 2007 03:05:09 +0200
Subject: fix one last bug w.r.t. issue 55.

darcs-hash:20071012010509-72aca-98045b4e5f7b81fcfdd79b7d67f2420060463cd4
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3