diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout/LayoutHints.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/LayoutHints.hs b/XMonad/Layout/LayoutHints.hs index 3558cc2..d263f3c 100644 --- a/XMonad/Layout/LayoutHints.hs +++ b/XMonad/Layout/LayoutHints.hs @@ -46,7 +46,8 @@ data LayoutHints a = LayoutHints deriving (Read, Show) instance LayoutModifier LayoutHints Window where modifierDescription _ = "Hinted" - redoLayout _ _ s xs = do + redoLayout _ _ Nothing xs = return (xs, Nothing) + redoLayout _ _ (Just s) xs = do xs' <- mapM applyHint xs return (xs', Nothing) where |