diff options
| author | Valery V. Vorotyntsev <valery.vv@gmail.com> | 2007-10-24 16:38:20 +0200 |
|---|---|---|
| committer | Valery V. Vorotyntsev <valery.vv@gmail.com> | 2007-10-24 16:38:20 +0200 |
| commit | aae9ed1fde80cec3b5c06193d56d1d82d0089430 (patch) | |
| tree | 1e027061e05b72c96f6927331ae6465528b2eaa2 | |
| parent | d999f3fa46116e55be5af45348de90d75b40012b (diff) | |
| download | XMonadContrib-aae9ed1fde80cec3b5c06193d56d1d82d0089430.tar.gz XMonadContrib-aae9ed1fde80cec3b5c06193d56d1d82d0089430.tar.xz XMonadContrib-aae9ed1fde80cec3b5c06193d56d1d82d0089430.zip | |
ShellPrompt.hs: move `uniqSort' to XPrompt.hs
darcs-hash:20071024143820-ae588-df2714f8e495275cafc2514e3cf4aabc886b36d4.gz
| -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 |