diff options
author | Steffen Schuldenzucker <sschuldenzucker@uni-bonn.de> | 2012-02-27 13:20:04 +0100 |
---|---|---|
committer | Steffen Schuldenzucker <sschuldenzucker@uni-bonn.de> | 2012-02-27 13:20:04 +0100 |
commit | cd0b14267d97cb92f9df003b60e1af3a886566c9 (patch) | |
tree | 14ec775527ccb1e322cdeede8d6ec3876baa67bb | |
parent | af5cb8cf15c2b64ed2490b688c17fd60950d78d0 (diff) | |
download | XMonadContrib-cd0b14267d97cb92f9df003b60e1af3a886566c9.tar.gz XMonadContrib-cd0b14267d97cb92f9df003b60e1af3a886566c9.tar.xz XMonadContrib-cd0b14267d97cb92f9df003b60e1af3a886566c9.zip |
fix L.WorkspaceDir special char handling: remove "echo -n" processing
Ignore-this: ab48687eb4c9018312089a13fd25ecd8
darcs-hash:20120227122004-4e3ba-326bd0b046584162fc2838f3a7a7a62207291f46.gz
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) |