Merge pull request #774 from Bubba/data-constructor-quick-fix

Add import suggestions for data constructors

src/Haskell/Ide/Engine/Plugin/HsImport.hs

@@ -105,8 +105,9 @@ codeActionProvider plId docId _ _ context = do
 
 extractImportableTerm :: T.Text -> Maybe T.Text
 extractImportableTerm dirtyMsg = T.strip <$> asum
-  [T.stripPrefix "Variable not in scope: " msg,
-  T.init <$> T.stripPrefix "Not in scope: type constructor or class ‘" msg]
+  [ T.stripPrefix "Variable not in scope: " msg
+  , T.init <$> T.stripPrefix "Not in scope: type constructor or class ‘" msg
+  , T.stripPrefix "Data constructor not in scope: " msg]
   where msg = head
               -- Get rid of the rename suggestion parts
               $ T.splitOn "Perhaps you meant "

test/unit/CodeActionsSpec.hs

@@ -25,6 +25,9 @@ spec = do
     it "pick up when" $
       let msg = "Variable not in scope: when :: Bool -> IO () -> t"
         in extractImportableTerm msg `shouldBe` Just "when :: Bool -> IO () -> t"
+    it "pick up data constructors" $
+      let msg = "Data constructor not in scope: ExitFailure :: Integer -> t"
+        in extractImportableTerm msg `shouldBe` Just "ExitFailure :: Integer -> t"
 
   describe "rename code actions" $ do
     it "pick up variable not in scope perhaps you meant" $