@@ -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