removing unused variable.
This commit is contained in:
parent
afe8f69ab9
commit
f0a98cf64f
@ -136,7 +136,7 @@ nil do not display errors/warnings.
|
|||||||
(defun ghc-to-info (errs)
|
(defun ghc-to-info (errs)
|
||||||
;; [^\t] to include \n.
|
;; [^\t] to include \n.
|
||||||
(let ((regex "^\\([^\n]*\\):\\([0-9]+\\):\\([0-9]+\\): *\\([^\t]+\\)")
|
(let ((regex "^\\([^\n]*\\):\\([0-9]+\\):\\([0-9]+\\): *\\([^\t]+\\)")
|
||||||
info infos)
|
infos)
|
||||||
(dolist (err errs (nreverse infos))
|
(dolist (err errs (nreverse infos))
|
||||||
(when (string-match regex err)
|
(when (string-match regex err)
|
||||||
(let* ((file (expand-file-name (match-string 1 err) ghc-process-root)) ;; for Windows
|
(let* ((file (expand-file-name (match-string 1 err) ghc-process-root)) ;; for Windows
|
||||||
|
Loading…
Reference in New Issue
Block a user