Remove spurious output from ShellPrompt

This commit is contained in:
Spencer Janssen 2007-10-11 18:28:16 +00:00
parent 39b30296c5
commit df3d489284

View File

@ -60,7 +60,6 @@ getShellCompl s
| s /= "" && last s /= ' ' = do | s /= "" && last s /= ' ' = do
f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n") f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n")
c <- commandCompletionFunction s c <- commandCompletionFunction s
hPutStrLn stdout s
return . map escape . sort . nub $ f ++ c return . map escape . sort . nub $ f ++ c
| otherwise = return [] | otherwise = return []