diff options
| -rw-r--r-- | LayoutHints.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LayoutHints.hs b/LayoutHints.hs index 532966b..4c998fd 100644 --- a/LayoutHints.hs +++ b/LayoutHints.hs @@ -10,7 +10,7 @@ import XMonad hiding ( trace ) layoutHints :: Layout -> Layout layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints - , modifyLayout = \x -> layoutHints `fmap` modifyLayout l x } + , modifyLayout = \x -> fmap layoutHints `fmap` modifyLayout l x } applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)] applyHints xs = mapM applyHint xs |