Skip to content

Commit 5f3434c

Browse files
authored
Merge pull request #1614 from roman-kashitsyn/master
Make sure we never set default-directory to nil
2 parents d6c2666 + 5fdc2c2 commit 5f3434c

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

inf-haskell.el

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -177,7 +177,8 @@ otherwise uses `haskell-program-name-with-args'.
177177
It runs the hook `inferior-haskell-hook' after starting the process and
178178
setting up the inferior-haskell buffer."
179179
(let ((command (haskell-program-name-with-args)))
180-
(setq default-directory inferior-haskell-root-dir)
180+
(when inferior-haskell-root-dir
181+
(setq default-directory inferior-haskell-root-dir))
181182
(setq inferior-haskell-buffer
182183
(apply 'make-comint "haskell" (car command) nil (cdr command)))
183184
(with-current-buffer inferior-haskell-buffer

0 commit comments

Comments
 (0)