diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-02-19 05:14:58 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-02-19 05:14:58 +0100 |
| commit | 0b00aa082c265f1307ca9d0bfe10e2ff9b2dd79b (patch) | |
| tree | 32b2100c403ef829799e279560fda15f60ec82bf | |
| parent | de73299f92714cc3607ed8126b0636fc8b5304c5 (diff) | |
| download | metatile-0b00aa082c265f1307ca9d0bfe10e2ff9b2dd79b.tar metatile-0b00aa082c265f1307ca9d0bfe10e2ff9b2dd79b.zip | |
ManageHook.doShift: use shiftWin instead of shift
Ignore-this: 4d7f348d6d394c581ab2809bbc45a2c6
darcs-hash:20090219041458-25a6b-4101ad2953e3d5ca81a697c8d53bbb5d3e0eae5e
| -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 |