diff options
author | Devin Mullins <me@twifkak.com> | 2007-10-07 20:59:15 +0200 |
---|---|---|
committer | Devin Mullins <me@twifkak.com> | 2007-10-07 20:59:15 +0200 |
commit | d9f831e606e447043239ae4d60e931405132ba37 (patch) | |
tree | 0f2c9680d65629c8dcbe80e9125519e30d9405f6 /ShellPrompt.hs | |
parent | 6f391057b024585fb4d9489c3a412a59f4bab275 (diff) | |
download | XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.tar.gz XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.tar.xz XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.zip |
Maybe? What Maybe? (rollback earlier dmenu change)
darcs-hash:20071007185915-78224-5dc94fbbbc960a853654321317e2b8ba54d8be2a.gz
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 |