diff options
author | David Roundy <droundy@darcs.net> | 2007-10-05 16:05:53 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-10-05 16:05:53 +0200 |
commit | 2aa44b369862ea2a0c69bc5a5bbb5e072f5ba206 (patch) | |
tree | 0778ce8febeb3ab49ade05f13f34023de3e15e05 /XMonad.hs | |
parent | 2d2eb792a525070a4dbf16367aaf94135a01da36 (diff) | |
download | xmonad-2aa44b369862ea2a0c69bc5a5bbb5e072f5ba206.tar.gz xmonad-2aa44b369862ea2a0c69bc5a5bbb5e072f5ba206.tar.xz xmonad-2aa44b369862ea2a0c69bc5a5bbb5e072f5ba206.zip |
add pureMessage.
darcs-hash:20071005140553-72aca-aa462a597c08ff1f9309985a0f3403d5023bc975.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 |