Extend redundant-import trigger to support qualified imports

The redundant-import-removal-suggest feature added in 741ab38 has two deficiencies: - doesn't trigger in case of multi-line warnings (happens with GHC 7.6), and - doesn't trigger in case of qualified imports. This commit tries to address these two issues by improving the regexp providing the trigger.
haskell · May 22, 2013 · 314a780 · 314a780
1 parent de4a198
commit 314a780
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/haskell-process.el b/haskell-process.el
@@ -456,11 +456,11 @@ to be loaded by ghci."
   (cond ((string-match "\\-X\\([A-Z][A-Za-z]+\\)" msg)
          (when haskell-process-suggest-language-pragmas
            (haskell-process-suggest-pragma session "LANGUAGE" (match-string 1 msg) file)))
-        ((string-match "Warning: The import of[ ]`\\([^ ]+\\)' is redundant" msg)
+        ((string-match " The \\(qualified \\)?import of[ ]`\\([^ ]+\\)' is redundant" msg)
          (when haskell-process-suggest-remove-import-lines
            (haskell-process-suggest-remove-import session
                                                   file
-                                                  (match-string 1 msg)
+                                                  (match-string 2 msg)
                                                   line)))
         ((string-match "Warning: orphan instance: " msg)
          (when haskell-process-suggest-no-warn-orphans