diff options
Diffstat (limited to '')
-rw-r--r-- | ShellPrompt.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ShellPrompt.hs b/ShellPrompt.hs index 14e855c..077fd8c 100644 --- a/ShellPrompt.hs +++ b/ShellPrompt.hs @@ -25,7 +25,6 @@ import XMonadContrib.Dmenu import Control.Monad import Data.List -import Data.Maybe import System.Directory import System.IO import System.Environment @@ -58,7 +57,7 @@ shellPrompt c = mkXPrompt Shell c getShellCompl spawn getShellCompl :: String -> IO [String] getShellCompl s | s /= "" && last s /= ' ' = do - f <- fmap (lines . fromMaybe "") $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n") + f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n") c <- commandCompletionFunction s hPutStrLn stdout s return . map escape . sort . nub $ f ++ c |