diff options
| -rw-r--r-- | XMonad/Actions/SpawnOn.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |