diff options
| -rw-r--r-- | ShellPrompt.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/ShellPrompt.hs b/ShellPrompt.hs index f89c1c4..0692244 100644 --- a/ShellPrompt.hs +++ b/ShellPrompt.hs @@ -25,7 +25,6 @@ module XMonadContrib.ShellPrompt ( import System.Environment import Control.Monad import Data.List -import Data.Set (toList, fromList) import System.Directory import System.IO import XMonadContrib.Run @@ -79,9 +78,6 @@ getShellCompl cmds s | s == "" || last s == ' ' = return [] f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n") return . map escape . uniqSort $ f ++ commandCompletionFunction cmds s -uniqSort :: Ord a => [a] -> [a] -uniqSort = toList . fromList - commandCompletionFunction :: [String] -> String -> [String] commandCompletionFunction cmds str | '/' `elem` str = [] | otherwise = filter (isPrefixOf str) cmds |