@@ -225,7 +225,7 @@ completion = completeWordWithPrev Nothing " \t\n\r" findCompletions
225 return $ sortBy sorter completions
225 return $ sortBy sorter completions
227 getCompletion :: CompletionContext -> String -> StateT PSCiState IO [Either String Completion]
227 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
229 getCompletion FilePath f = (map Right) <$> listFiles f
229 getCompletion FilePath f = (map Right) <$> listFiles f
230 getCompletion Module _ = (map Left) <$> getModuleNames
230 getCompletion Module _ = (map Left) <$> getModuleNames
231 getCompletion Identifier _ = (map Left) <$> getIdentNames
231 getCompletion Identifier _ = (map Left) <$> getIdentNames