Improve usefulness of file-relative-name in cycle code

jwiegley · Jun 17, 2014 · d62f51a · d62f51a
1 parent 36e39a4
commit d62f51a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/haskell-process.el b/haskell-process.el
@@ -722,10 +722,10 @@ from `module-buffer'."
      "\\(Module imports form a cycle:[ \n]+module [^ ]+ ([^)]+)[[:unibyte:][:nonascii:]]+?\\)\nFailed")
     (let ((err (match-string 1 buffer)))
       (when (string-match "module [`'‘‛]\\([^ ]+\\)['’`] (\\([^)]+\\))" err)
-        (let* ((module (match-string 1 err))
+        (let* ((default-directory (haskell-session-current-dir session))
+               (module (match-string 1 err))
                (file (match-string 2 err))
-               (relative-file-name (file-relative-name file
-                                                       (haskell-session-current-dir session))))
+               (relative-file-name (file-relative-name file)))
           (haskell-interactive-show-load-message
            session
            'import-cycle