diff options
| -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] |