diff options
| -rw-r--r-- | ShellPrompt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ShellPrompt.hs b/ShellPrompt.hs index b52fda8..9ff06c3 100644 --- a/ShellPrompt.hs +++ b/ShellPrompt.hs @@ -26,6 +26,7 @@ import XMonadContrib.Dmenu import Control.Monad import Data.List +import Data.Set (toList, fromList) import System.Directory import System.IO import System.Environment @@ -60,7 +61,7 @@ getShellCompl s | s /= "" && last s /= ' ' = do f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n") c <- commandCompletionFunction s - return . map escape . sort . nub $ f ++ c + return . map escape . sort . (toList . fromList) $ f ++ c | otherwise = return [] commandCompletionFunction :: String -> IO [String] |