From 0b00aa082c265f1307ca9d0bfe10e2ff9b2dd79b Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Thu, 19 Feb 2009 05:14:58 +0100
Subject: ManageHook.doShift: use shiftWin instead of shift

Ignore-this: 4d7f348d6d394c581ab2809bbc45a2c6

darcs-hash:20090219041458-25a6b-4101ad2953e3d5ca81a697c8d53bbb5d3e0eae5e
---
 XMonad/ManageHook.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3