Linting failure when reloading file that is not current buffer

[sirlensalot]

Problem is in haskell-process-errors-warnings when comparing current buffer file name to the warning result:

haskell-mode/haskell-load.el

Lines 547 to 548 in 98ba392

	(string= (file-truename (buffer-file-name module-buffer))
	(file-truename file))

When an error appears in a different file than the currently-loaded one, ghci outputs a relative file name. Thus, if "/var/project/src/Foo/Bar.hs" is loaded but user is looking at "/var/project/src/Baz/Quux.hs", an error in Baz.Quux will print for "src/Baz/Quux.hs"; whereas if it was in the loaded file, it gets a full/absolute path.

The problem occurs when default-directory does not match the session directory: with a relative path, file-truename simply appends default directory. For our example, that would be "/var/project/src/Baz", resulting in the erroneous value of "/var/project/src/Baz/src/Baz/Quux.hs", which will obviously fail the comparison above.

The workaround is to overwrite default-directory with the session current-dir:

  (when (and module-buffer haskell-process-show-overlays)
          (set-variable 'default-directory (haskell-session-current-dir session)) ;; <- workaround
          (haskell-check-paint-overlay
           module-buffer
           (string= (file-truename (buffer-file-name module-buffer))
                    (file-truename file))
           line error-msg file type nil col1))

This resolves the issue, at the cost of setting default-directory for the buffer to the session directory, which is probably not great.

[sirlensalot]

If there's some with-XXX or save-excursion trick to set default-directory only in that scope then I think the workaround could be principled.

[purcell]

You can locally bind default-directory to whatever you want within a let form.