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 | d41c9c31eaab2ffd39bead72204903eff5922fb7 (patch) | |
| tree | 32b2100c403ef829799e279560fda15f60ec82bf | |
| parent | 4923d5f7440a4a0b3b0126f6999c9c653ee2ba44 (diff) | |
| download | xmonad-d41c9c31eaab2ffd39bead72204903eff5922fb7.tar.gz xmonad-d41c9c31eaab2ffd39bead72204903eff5922fb7.tar.xz xmonad-d41c9c31eaab2ffd39bead72204903eff5922fb7.zip | |
ManageHook.doShift: use shiftWin instead of shift
Ignore-this: 4d7f348d6d394c581ab2809bbc45a2c6
darcs-hash:20090219041458-25a6b-4101ad2953e3d5ca81a697c8d53bbb5d3e0eae5e.gz
| -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 |