 
 (defun intero-installed-p ()
   "Is intero installed in the stack environment?"
+  (redisplay)
   (= 0 (call-process "stack" nil nil nil "exec" "--" "intero" "--version")))
 
 (defun intero-show-process-problem (process change)

  (let ((buffer (intero-get-buffer-create worker)))
    (if (get-buffer-process buffer)
        buffer
      (intero-get-worker-create worker))))

(defun intero-process (worker)
  "Get the worker process for the current directory."


(defun intero-auto-install (buffer &optional targets source-buffer)
  "Automatically install Intero."
  (let ((source-buffer (or source-buffer (current-buffer))))
    (switch-to-buffer buffer)
    (erase-buffer)
    (insert "Intero is not installed in the Stack environment.

Installing automatically ...

")
    (redisplay)
    (cl-case (call-process "stack" nil (current-buffer) t "build" intero-package-version)
      (0
       (message "Installed successfully! Starting Intero in a moment ...")
       (bury-buffer buffer)
       (switch-to-buffer source-buffer)
       (intero-start-process-in-buffer buffer targets source-buffer))
      (1 (insert (propertize "Could not install Intero!

We don't know why it failed. Please read the above output and try
installing manually. If that doesn't work, report this as a
problem.
"
                             'face 'compilation-error))))))

(defun intero-start-process-in-buffer (buffer &optional targets source-buffer)
  "Start an Intero worker in BUFFER for TARGETS, automatically
