emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #758 from patrl/interoHlint

Browse source 
Intero hlint
This commit is contained in:
Henrik Lissner 2018-07-17 02:14:24 +02:00 • committed by GitHub
commit c4a54e0ae6
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/lang/haskell/+intero.el
View file

@ -13,4 +13,7 @@ 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)
(add-hook! 'intero-mode
(flycheck-add-next-checker 'intero '(warning . haskell-hlint)))))

9
modules/lang/haskell/doctor.el
View file

@ -3,9 +3,7 @@
(when (featurep! +dante) (when (featurep! +dante)
(unless (executable-find "cabal") (unless (executable-find "cabal")
(warn! "Couldn't find cabal, haskell-mode may have issues")) (warn! "Couldn't find cabal, haskell-mode may have issues")))
(unless (executable-find "hlint")
(warn! "Couldn't find hlint. Flycheck may have issues in haskell-mode")))
(when (featurep! +intero) (when (featurep! +intero)
(unless (executable-find "stack") (unless (executable-find "stack")
@ -14,3 +12,8 @@
(unless (executable-find "hindent") (unless (executable-find "hindent")
(warn! "Couldn't find hindent. hindent-mode won't work")) (warn! "Couldn't find hindent. hindent-mode won't work"))
(when (or (featurep! +dante) (featurep! +intero))
(unless (executable-find "hlint")
(warn! "Couldn't find hlint. Flycheck may have issues in haskell-mode")))