lang/haskell: fix haskell-hlint checker

Causing "not a valid syntax checker" errors because it haskell-hlint was
defined too soon.
This commit is contained in:
Henrik Lissner 2018-07-17 23:47:57 +02:00
parent e8d4b74c29
commit 2968374081
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 8 additions and 9 deletions

View file

@ -2,4 +2,7 @@
;;;###if (featurep! +dante) ;;;###if (featurep! +dante)
(def-package! dante (def-package! dante
:hook (haskell-mode . dante-mode)) :hook (haskell-mode . dante-mode)
:config
(when (featurep! :feature syntax-checker)
(flycheck-add-next-checker 'haskell-dante '(warning . haskell-hlint))))

View file

@ -13,4 +13,6 @@ This is necessary because `intero-mode' doesn't do its own error checks."
(message "Couldn't find stack. Refusing to enable intero-mode.")))) (message "Couldn't find stack. Refusing to enable intero-mode."))))
(add-hook 'haskell-mode-hook #'+haskell|init-intero) (add-hook 'haskell-mode-hook #'+haskell|init-intero)
:config :config
(set-lookup-handlers! 'intero-mode :definition #'intero-goto-definition)) (set-lookup-handlers! 'intero-mode :definition #'intero-goto-definition)
(when (featurep! :feature syntax-checker)
(flycheck-add-next-checker 'intero '(warning . haskell-hlint))))

View file

@ -15,11 +15,5 @@
(set-lookup-handlers! 'haskell-mode :definition #'haskell-mode-jump-to-def-or-tag) (set-lookup-handlers! 'haskell-mode :definition #'haskell-mode-jump-to-def-or-tag)
(set-file-template! 'haskell-mode :trigger #'haskell-auto-insert-module-template :project t) (set-file-template! 'haskell-mode :trigger #'haskell-auto-insert-module-template :project t)
(set-repl-handler! '(haskell-mode haskell-cabal-mode literate-haskell-mode) #'+haskell-repl-buffer) (set-repl-handler! '(haskell-mode haskell-cabal-mode literate-haskell-mode) #'+haskell-repl-buffer)
(add-to-list 'completion-ignored-extensions ".hi") (add-to-list 'completion-ignored-extensions ".hi"))
(when (featurep! :feature syntax-checker)
(after! flycheck
(dolist (checker (delq nil (list (if (featurep! +intero) 'intero)
(if (featurep! +dante) 'haskell-dante))))
(flycheck-add-next-checker checker '(warning . haskell-hlint))))))