From 9f40428e1dc974c0e797fe11123c73526351576c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sun, 25 Jan 2009 22:33:31 +0100 Subject: Use currentTag, thanks asgaroth Ignore-this: dd1a3d96038de6479eca3b9798d38437 darcs-hash:20090125213331-25a6b-52d5f9d6094eed0fdfc88129057ba5319d0bf5f9.gz --- XMonad/Actions/SpawnOn.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Actions/SpawnOn.hs') diff --git a/XMonad/Actions/SpawnOn.hs b/XMonad/Actions/SpawnOn.hs index d452cdf..e0889b7 100644 --- a/XMonad/Actions/SpawnOn.hs +++ b/XMonad/Actions/SpawnOn.hs @@ -68,8 +68,7 @@ shellPromptOn :: Spawner -> WorkspaceId -> XPConfig -> X () shellPromptOn sp ws = mkPrompt (spawnOn sp ws) spawnHere :: Spawner -> String -> X () -spawnHere sp cmd = withWindowSet $ \ws -> spawnOn sp (currTag ws) cmd - where currTag = W.tag . W.workspace . W.current +spawnHere sp cmd = withWindowSet $ \ws -> spawnOn sp (W.currentTag ws) cmd spawnOn :: Spawner -> WorkspaceId -> String -> X () spawnOn sp ws cmd = do -- cgit v1.2.3