     (setq intero-project-root
           (with-temp-buffer
             (cl-case (save-excursion
-                       (intero-call-process "stack" nil
+                       (intero-call-process intero-stack-executable nil
                                             (current-buffer)
                                             nil
                                             "path"

        (setq intero-extensions
              (split-string
               (shell-command-to-string
                "stack exec --verbosity silent -- ghc --supported-extensions"))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Auto actions

  (add-hook 'haskell-mode-hook 'intero-mode-blacklist)"
  :group 'intero
  :type 'string)

(defcustom intero-stack-executable
  "stack"
  "Name or path to the Stack executable to use."
  :group 'intero
  :type 'string)
(make-variable-buffer-local 'intero-stack-executable)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Modes
