[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/haskell-mode 37a3de85ae 2/4: Qualify match with a further
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/haskell-mode 37a3de85ae 2/4: Qualify match with a further check rather than remove it |
Date: |
Tue, 16 Jan 2024 13:00:15 -0500 (EST) |
branch: elpa/haskell-mode
commit 37a3de85aecf2a0d2f713703d1702d08803e8730
Author: Steve Purcell <steve@sanityinc.com>
Commit: GitHub <noreply@github.com>
Qualify match with a further check rather than remove it
---
haskell-load.el | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/haskell-load.el b/haskell-load.el
index c782dd0855..0b431c98d3 100644
--- a/haskell-load.el
+++ b/haskell-load.el
@@ -205,13 +205,8 @@ list of modules where missed IDENT was found."
(string-match
"Use \\([A-Z][A-Za-z]+\\) if you want to disable this"
msg)
- ;; Andreas Abel, 2024-01-10,
https://github.com/haskell/haskell-mode/issues/1834
- ;; The following regex also matches the new x-partial warning
- ;; "Consider refactoring to use Data.List.NonEmpty"
- ;; which would result in a suggestion to
- ;; "Add {-# LANGUAGE Data #-} to the top of the file?"
- ;; Thus, we disable it.
- ;; (string-match "use \\([A-Z][A-Za-z]+\\)" msg)
+ (and (string-match "use \\([A-Z][A-Za-z]+\\)" msg)
+ (not (string-match "refactoring to use" msg)))
(string-match "You need \\([A-Z][A-Za-z]+\\)" msg)))
(when haskell-process-suggest-language-pragmas
(haskell-process-suggest-pragma