summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-10-12 03:05:09 +0200
committerDavid Roundy <droundy@darcs.net>2007-10-12 03:05:09 +0200
commita51de85e2f7879b88173fb12d404b6cbc85e3b2c (patch)
treef74948092cc2fafd04bcf50738d40a85db5a8b3e
parent8b803138328a6d03d0e75c0aa01027f24793cbaa (diff)
downloadmetatile-a51de85e2f7879b88173fb12d404b6cbc85e3b2c.tar
metatile-a51de85e2f7879b88173fb12d404b6cbc85e3b2c.zip
fix one last bug w.r.t. issue 55.
darcs-hash:20071012010509-72aca-98045b4e5f7b81fcfdd79b7d67f2420060463cd4
-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