From 4fb061f7cf5399b6cfd7c9ea0eb5ce5ebd3fe51c Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 5 Oct 2007 16:05:53 +0200
Subject: add pureMessage.

darcs-hash:20071005140553-72aca-aa462a597c08ff1f9309985a0f3403d5023bc975
---
 XMonad.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 48f49ca..d70438d 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -160,7 +160,9 @@ class (Show (layout a), Read (layout a)) => LayoutClass layout a where
     pureLayout _ r s = [(focus s, r)]
 
     handleMessage :: layout a -> SomeMessage -> X (Maybe (layout a))
-    handleMessage _ _ = return Nothing
+    handleMessage l = return . pureMessage l
+    pureMessage :: layout a -> SomeMessage -> Maybe (layout a)
+    pureMessage _ _ = Nothing
     description :: layout a -> String
     description = show
 
-- 
cgit v1.2.3