diff options
-rw-r--r-- | XMonad/ManageHook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index f2478b2..a0b7bb4 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -111,4 +111,4 @@ doIgnore = ask >>= \w -> liftX (reveal w) >> doF (W.delete w) -- | Move the window to a given workspace doShift :: WorkspaceId -> ManageHook -doShift = doF . W.shift +doShift i = doF . W.shiftWin i =<< ask |