We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents d6c2666 + 5fdc2c2 commit 5f3434cCopy full SHA for 5f3434c
inf-haskell.el
@@ -177,7 +177,8 @@ otherwise uses `haskell-program-name-with-args'.
177
It runs the hook `inferior-haskell-hook' after starting the process and
178
setting up the inferior-haskell buffer."
179
(let ((command (haskell-program-name-with-args)))
180
- (setq default-directory inferior-haskell-root-dir)
+ (when inferior-haskell-root-dir
181
+ (setq default-directory inferior-haskell-root-dir))
182
(setq inferior-haskell-buffer
183
(apply 'make-comint "haskell" (car command) nil (cdr command)))
184
(with-current-buffer inferior-haskell-buffer
0 commit comments