@@ -21,7 +21,7 @@ import Control.Monad
2121import Control.Monad.Trans.Class
2222import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)
2323
24−import Data.List (nub, isPrefixOf)
24+import Data.List (nub, isPrefixOf, sort)
2525import Data.Maybe (mapMaybe)
2626import Data.Traversable (traverse)
2727
@@ -61,7 +61,7 @@ completion ms = completeWord Nothing " \t\n\r" findCompletions
6161 , qual <- [ P.Qualified Nothing ident
6262 , P.Qualified (Just moduleName) ident]
6363 ]
64− let matches = filter (isPrefixOf str) names
64+ let matches = sort $ filter (isPrefixOf str) names
6565 return $ map simpleCompletion matches ++ files
6666 getDeclName :: P.Declaration -> Maybe P.Ident
6767 getDeclName (P.ValueDeclaration ident _ _ _) = Just ident