diff options
author | David Roundy <droundy@darcs.net> | 2007-09-23 13:52:19 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-23 13:52:19 +0200 |
commit | 3ddeae7d34831eda92f9a8eb7c9dc94a02f70cef (patch) | |
tree | a1d77ca9df45e581739eed1608996e0219ff2d7f /XMonad.hs | |
parent | 365e1400645e970fe1d4d07401235a9bf044dbb9 (diff) | |
download | xmonad-3ddeae7d34831eda92f9a8eb7c9dc94a02f70cef.tar.gz xmonad-3ddeae7d34831eda92f9a8eb7c9dc94a02f70cef.tar.xz xmonad-3ddeae7d34831eda92f9a8eb7c9dc94a02f70cef.zip |
create default modifyLayout that ignores messages.
darcs-hash:20070923115219-72aca-d4400312d8edb267350518f4cce6acd99abc3e1d.gz
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -152,6 +152,7 @@ readLayout ls s = concatMap rl ls class (Show (layout a), Read (layout a)) => Layout layout a where doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a)) + modifyLayout _ _ = return Nothing runLayout :: Layout l a => l a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (l a)) runLayout l r = maybe (return ([], Nothing)) (doLayout l r) |