Expand path relative to the project root directory.
This commit is contained in:
Anthony Cowley 2015-04-24 18:58:23 -04:00 committed by Daniel Gröber
parent 3c76ba412f
commit de3d3a5f19

View File

@ -132,7 +132,7 @@ nil does not display errors/warnings.
info infos) info 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))) ;; for Windows (let* ((file (expand-file-name (match-string 1 err) (ghc-get-project-root))) ;; for Windows
(line (string-to-number (match-string 2 err))) (line (string-to-number (match-string 2 err)))
(coln (string-to-number (match-string 3 err))) (coln (string-to-number (match-string 3 err)))
(msg (match-string 4 err)) (msg (match-string 4 err))