Fix `:s` appearing twice in auto-completion.
commit4d69cf2caa1e0dfa34d6c805baf22bc1d8c65563
authorVladimir Korablin <vkorablin@gmail.com>
dateMon 29 Dec 2014, 02:02 (12 years ago)
parent2da731f
psci/Main.hs+1−1
@@ -225,7 +225,7 @@ completion = completeWordWithPrev Nothing " \t\n\r" findCompletions
225225 return $ sortBy sorter completions
226226
227227 getCompletion :: CompletionContext -> String -> StateT PSCiState IO [Either String Completion]
228− getCompletion (Command s) _ = return $ (map Left) $ filter (isPrefixOf s) C.commands
228+ getCompletion (Command s) _ = return $ (map Left) $ nub $ filter (isPrefixOf s) C.commands
229229 getCompletion FilePath f = (map Right) <$> listFiles f
230230 getCompletion Module _ = (map Left) <$> getModuleNames
231231 getCompletion Identifier _ = (map Left) <$> getIdentNames