aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Layout/Decoration.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs
index 884c160..89edfcd 100644
--- a/XMonad/Layout/Decoration.hs
+++ b/XMonad/Layout/Decoration.hs
@@ -165,7 +165,8 @@ instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration d
handleMess _ _ = return Nothing
- emptyLayoutMod (Decoration (I (Just (DS dwrs _))) _ _) _ _ = deleteWindows (getDWs dwrs) >> return ([], Nothing)
+ emptyLayoutMod (Decoration (I (Just (DS dwrs _))) sh c) _ _ = do deleteWindows (getDWs dwrs)
+ return ([], Just $ Decoration (I Nothing) sh c)
emptyLayoutMod _ _ _ = return ([], Nothing)
modifierDescription (Decoration _ _ c) = describeDeco $ style c