From cd0b14267d97cb92f9df003b60e1af3a886566c9 Mon Sep 17 00:00:00 2001 From: Steffen Schuldenzucker Date: Mon, 27 Feb 2012 13:20:04 +0100 Subject: fix L.WorkspaceDir special char handling: remove "echo -n" processing Ignore-this: ab48687eb4c9018312089a13fd25ecd8 darcs-hash:20120227122004-4e3ba-326bd0b046584162fc2838f3a7a7a62207291f46.gz --- XMonad/Layout/WorkspaceDir.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Layout/WorkspaceDir.hs') 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) -- cgit v1.2.3