From b6a9aac7a64054c361c1e717dbb36a8e3f54f866 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <asgaroth_@gmx.de>
Date: Mon, 9 Feb 2009 16:23:08 +0100
Subject: Fix an undefined in EwmhDesktops

Ignore-this: f60a43d7ba90164ebcf700090dfb2480

darcs-hash:20090209152308-cb1c6-fb5fccb3801e35ce67f69633e65658b6f6ebddb8.gz
---
 XMonad/Hooks/EwmhDesktops.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index bcf870d..00d9b89 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -152,7 +152,7 @@ handle ClientMessageEvent {
         else if mt `elem` a_ignore then do
 	       return ()
         else trace $ "Unknown ClientMessageEvent " ++ show mt
-handle _ = undefined -- does not happen, as otherwise ewmhDesktopsHook would not match
+handle _ = return ()
 
 
 setNumberOfDesktops :: (Integral a) => a -> X ()
-- 
cgit v1.2.3