@@ -20,7 +20,7 @@ import Language.Haskell.LSP.Messages
20import qualified Data.Rope.UTF16 as Rope
20import qualified Data.Rope.UTF16 as Rope
21import Data.Char
21import Data.Char
22import Data.Maybe
22import Data.Maybe
23−import Data.List
23+import Data.List.Extra
24import qualified Data.Text as T
24import qualified Data.Text as T
26-- | Generate code actions.
26-- | Generate code actions.
@@ -103,8 +103,8 @@ suggestAction contents Diagnostic{_range=_range@Range{..},..}
103-- Perhaps you meant Data.Char (from base-4.12.0.0)
103-- Perhaps you meant Data.Char (from base-4.12.0.0)
104 | "Could not find module" `T.isInfixOf` _message
104 | "Could not find module" `T.isInfixOf` _message
105 , "Perhaps you meant" `T.isInfixOf` _message
105 , "Perhaps you meant" `T.isInfixOf` _message
106− = map proposeModule $ nub $ findSuggestedModules _message where
106+ = map proposeModule $ nubOrd $ findSuggestedModules _message where
107− findSuggestedModules = (map (head . T.words) . drop 2 . T.lines)
107+ findSuggestedModules = map (head . T.words) . drop 2 . T.lines
108 proposeModule mod = ("replace with " <> mod, [TextEdit _range mod])
108 proposeModule mod = ("replace with " <> mod, [TextEdit _range mod])
110suggestAction _ _ = []
110suggestAction _ _ = []