diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-26 23:23:34 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-26 23:23:34 +0200 |
| commit | 728848401323209321819f09a66b44cc9632e830 (patch) | |
| tree | 19d67a9d5fa86b7fc05a493c8fd5b3e7044720d4 /ShellPrompt.hs | |
| parent | 9a2f7c61cd95f0a854383499a1d55ac2d770557f (diff) | |
| download | XMonadContrib-728848401323209321819f09a66b44cc9632e830.tar.gz XMonadContrib-728848401323209321819f09a66b44cc9632e830.tar.xz XMonadContrib-728848401323209321819f09a66b44cc9632e830.zip | |
ShellPrompt: remove harcoded path when calling bash
darcs-hash:20071026212334-32816-5205f22387919d73d029ccd7da378efefec4f3e3.gz
Diffstat (limited to '')
| -rw-r--r-- | ShellPrompt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ShellPrompt.hs b/ShellPrompt.hs index 406916c..ed3bb5d 100644 --- a/ShellPrompt.hs +++ b/ShellPrompt.hs @@ -81,7 +81,7 @@ unsafePrompt c config = mkXPrompt Shell config (getShellCompl [c]) run getShellCompl :: [String] -> String -> IO [String] getShellCompl cmds s | s == "" || last s == ' ' = return [] | otherwise = do - f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n") + f <- fmap lines $ runProcessWithInput "bash" [] ("compgen -A file " ++ s ++ "\n") return . map escape . uniqSort $ f ++ commandCompletionFunction cmds s commandCompletionFunction :: [String] -> String -> [String] |