aboutsummaryrefslogtreecommitdiffstats
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
commitae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85 (patch)
treef2b5fdc86a9911e9e83c664b733e4827c50cdc7f /XMonad
parenta3211a3e45f03945e4fe5f0f7b290eb9893cf441 (diff)
downloadxmonad-ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85.tar.gz
xmonad-ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85.tar.xz
xmonad-ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85.zip
comments
darcs-hash:20080322041654-cba2c-a02ffa00d03a515c00ba04f7efd0281982769e22.gz
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