create default modifyLayout that ignores messages.

darcs-hash:20070923115219-72aca-d4400312d8edb267350518f4cce6acd99abc3e1d

1 files changed, 1 insertions, 0 deletions

diff --git a/XMonad.hs b/XMonad.hs
index 3a6f298..7f5fe77 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -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)