summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs1
-rw-r--r--XMonad.hs1
2 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs
index 86f0680..62780a4 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -381,7 +381,6 @@ instance Message IncMasterN
data Full a = Full deriving ( Show, Read )
instance Layout Full a where
doLayout Full sc (W.Stack f _ _) = return ([(f, sc)], Nothing)
- modifyLayout Full _ = return Nothing -- no changes
--
-- The tiling mode of xmonad, and its operations.
--
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)