diff options
author | Don Stewart <dons@galois.com> | 2008-03-22 05:16:54 +0100 |
---|---|---|
committer | Don Stewart <dons@galois.com> | 2008-03-22 05:16:54 +0100 |
commit | ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85 (patch) | |
tree | f2b5fdc86a9911e9e83c664b733e4827c50cdc7f /XMonad/Core.hs | |
parent | a3211a3e45f03945e4fe5f0f7b290eb9893cf441 (diff) | |
download | xmonad-ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85.tar.gz xmonad-ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85.tar.xz xmonad-ae1b2e3d8c86c43261f2c7cc1ce6a0e2bbe4be85.zip |
comments
darcs-hash:20080322041654-cba2c-a02ffa00d03a515c00ba04f7efd0281982769e22.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Core.hs | 3 |
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 |