hlint options.
This commit is contained in:
parent
7cb9944b0b
commit
7c0f2511d0
@ -46,9 +46,18 @@
|
|||||||
|
|
||||||
(defun ghc-check-send ()
|
(defun ghc-check-send ()
|
||||||
(if ghc-check-command
|
(if ghc-check-command
|
||||||
(concat "lint " ghc-process-original-file "\n")
|
(let ((opts (ghc-haskell-list-of-string ghc-hlint-options)))
|
||||||
|
(if opts
|
||||||
|
(concat "lint " opts " " ghc-process-original-file "\n")
|
||||||
|
(concat "lint " ghc-process-original-file "\n")))
|
||||||
(concat "check " ghc-process-original-file "\n")))
|
(concat "check " ghc-process-original-file "\n")))
|
||||||
|
|
||||||
|
(defun ghc-haskell-list-of-string (los)
|
||||||
|
(when los
|
||||||
|
(concat "["
|
||||||
|
(mapconcat (lambda (x) (concat "\"" x "\"")) los ", ")
|
||||||
|
"]")))
|
||||||
|
|
||||||
(defun ghc-check-callback ()
|
(defun ghc-check-callback ()
|
||||||
(let ((regex "^\\([^\n\0]*\\):\\([0-9]+\\):\\([0-9]+\\): *\\(.+\\)")
|
(let ((regex "^\\([^\n\0]*\\):\\([0-9]+\\):\\([0-9]+\\): *\\(.+\\)")
|
||||||
info infos)
|
info infos)
|
||||||
|
Loading…
Reference in New Issue
Block a user