elisp/stack-mode/stack-mode.el
changeset 81 4da7819d1a1c
parent 80 e848f1863d6b
equal deleted inserted replaced
80:e848f1863d6b 81:4da7819d1a1c
    50         (progn (when (bound-and-true-p interactive-haskell-mode)
    50         (progn (when (bound-and-true-p interactive-haskell-mode)
    51                  (when (y-or-n-p "interactive-haskell-mode is enabled. Disable it?")
    51                  (when (y-or-n-p "interactive-haskell-mode is enabled. Disable it?")
    52                    (interactive-haskell-mode -1)))
    52                    (interactive-haskell-mode -1)))
    53                (when stack-mode-manage-flycheck
    53                (when stack-mode-manage-flycheck
    54                  (flycheck-mode 1)
    54                  (flycheck-mode 1)
       
    55                  (flycheck-disable-checker 'haskell-ghc)
    55                  (flycheck-select-checker 'stack-ide)
    56                  (flycheck-select-checker 'stack-ide)
    56                  (flycheck-buffer)))
    57                  (flycheck-buffer)))
    57       (when stack-mode-manage-flycheck
    58       (when stack-mode-manage-flycheck
    58         (flycheck-mode -1)))))
    59         (flycheck-mode -1)))))
    59 
    60 
   920     (apply func args)))
   921     (apply func args)))
   921 
   922 
   922 (flycheck-define-generic-checker 'stack-ide
   923 (flycheck-define-generic-checker 'stack-ide
   923   "A syntax and type checker for Haskell using Stack's IDE support."
   924   "A syntax and type checker for Haskell using Stack's IDE support."
   924   :start 'stack-mode-flycheck-start
   925   :start 'stack-mode-flycheck-start
   925   :modes '(haskell-mode))
   926   :modes '(haskell-mode)
       
   927   :next-checkers '((warning . haskell-hlint)))
   926 
   928 
   927 (provide 'stack-mode)
   929 (provide 'stack-mode)