From 7d92ffd97bb94f61da7555e8537a3ca57cf9d4b9 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Thu, 19 Feb 2009 05:18:56 +0100
Subject: SpawnOn: use doShift.  This resolves problems where SpawnOn would
 shift the wrong window

Ignore-this: 6ae639a638db8eff77203f3f2e481a4e

darcs-hash:20090219041856-25a6b-86d011dc6e3891d7b1ea2099ebda8c6416b96fd7.gz
---
 XMonad/Actions/SpawnOn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Actions/SpawnOn.hs')

diff --git a/XMonad/Actions/SpawnOn.hs b/XMonad/Actions/SpawnOn.hs
index db7eb53..5340666 100644
--- a/XMonad/Actions/SpawnOn.hs
+++ b/XMonad/Actions/SpawnOn.hs
@@ -78,7 +78,7 @@ manageSpawn sp = do
         Just w  -> do
             whenJust mp $ \p ->
                 io . modifyIORef (pidsRef sp) $ filter ((/= p) . fst)
-            doF (W.shift w)
+            doShift w
 
 mkPrompt :: (String -> X ()) -> XPConfig -> X ()
 mkPrompt cb c = do
-- 
cgit v1.2.3