From 3ddeae7d34831eda92f9a8eb7c9dc94a02f70cef Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sun, 23 Sep 2007 13:52:19 +0200 Subject: create default modifyLayout that ignores messages. darcs-hash:20070923115219-72aca-d4400312d8edb267350518f4cce6acd99abc3e1d.gz --- XMonad.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'XMonad.hs') 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) -- cgit v1.2.3