diff options
| -rw-r--r-- | XMonad/Hooks/InsertPosition.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/InsertPosition.hs b/XMonad/Hooks/InsertPosition.hs index 54c2a6d..722c48a 100644 --- a/XMonad/Hooks/InsertPosition.hs +++ b/XMonad/Hooks/InsertPosition.hs @@ -46,7 +46,7 @@ data Focus = Newer | Older insertPosition :: Position -> Focus -> ManageHook insertPosition pos foc = Endo . g <$> ask where - g w = viewingWs w (updateFocus w . ins w . W.delete w) + g w = viewingWs w (updateFocus w . ins w . W.delete' w) ins w = (\f ws -> fromMaybe id (W.focusWindow <$> W.peek ws) $ f ws) $ case pos of Master -> W.insertUp w . W.focusMaster |