diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/WorkspaceDir.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Layout/WorkspaceDir.hs b/XMonad/Layout/WorkspaceDir.hs index fda0d0e..983c9de 100644 --- a/XMonad/Layout/WorkspaceDir.hs +++ b/XMonad/Layout/WorkspaceDir.hs @@ -90,8 +90,7 @@ cleanDir :: String -> X String cleanDir x = scd x >> io getCurrentDirectory scd :: String -> X () -scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` econst x) - catchIO $ setCurrentDirectory x' +scd x = catchIO $ setCurrentDirectory x changeDir :: XPConfig -> X () changeDir c = directoryPrompt c "Set working directory: " (sendMessage . Chdir) |