summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2008-03-22 05:16:54 +0100
committerDon Stewart <dons@galois.com>2008-03-22 05:16:54 +0100
commit98240e03ca298c400d29699293a0cc88de51017d (patch)
treef2b5fdc86a9911e9e83c664b733e4827c50cdc7f /XMonad
parent6f3ab230d1334b1b519f20a6dd3686995fac6ab0 (diff)
downloadmetatile-98240e03ca298c400d29699293a0cc88de51017d.tar
metatile-98240e03ca298c400d29699293a0cc88de51017d.zip
comments
darcs-hash:20080322041654-cba2c-a02ffa00d03a515c00ba04f7efd0281982769e22
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Core.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index a25b47e..1603034 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -270,7 +270,8 @@ class Show (layout a) => LayoutClass layout a where
--
-- Layouts which do not need access to the 'X' monad to decide how
-- to handle messages should implement 'pureMessage' instead of
- -- 'handleMessage'.
+ -- 'handleMessage' (this restricts the risk of error, and makes
+ -- testing much easier).
handleMessage :: layout a -> SomeMessage -> X (Maybe (layout a))
handleMessage l = return . pureMessage l