add pureMessage.

darcs-hash:20071005140553-72aca-aa462a597c08ff1f9309985a0f3403d5023bc975

1 files changed, 3 insertions, 1 deletions

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