branch: elpa/flycheck
commit 2c348fa7d204b13f3ecd65d375d910f8b721ce09
Author: gynamics <[email protected]>
Commit: Bozhidar Batsov <[email protected]>

    ghc checkers: add default case for -x option.
    
    This provides support for other major modes like `haskell-ts-mode'.
---
 flycheck.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/flycheck.el b/flycheck.el
index 4f65e1cdf0..3a8702db4f 100644
--- a/flycheck.el
+++ b/flycheck.el
@@ -9532,8 +9532,8 @@ See URL `https://github.com/commercialhaskell/stack'."
             (eval flycheck-ghc-args)
             "-x" (eval
                   (pcase major-mode
-                    (`haskell-mode "hs")
-                    (`haskell-literate-mode "lhs")))
+                    (`haskell-literate-mode "lhs")
+                    (_ "hs")))
             source)
   :error-patterns
   ((warning line-start (file-name) ":" line ":" column ":"
@@ -9592,8 +9592,8 @@ See URL `https://www.haskell.org/ghc/'."
             (eval flycheck-ghc-args)
             "-x" (eval
                   (pcase major-mode
-                    (`haskell-mode "hs")
-                    (`haskell-literate-mode "lhs")))
+                    (`haskell-literate-mode "lhs")
+                    (_ "hs")))
             source)
   :error-patterns
   ((warning line-start (file-name) ":" line ":" column ":"

Reply via email to