 
 (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)


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

Installing automatically ...

")
  (cl-case (call-process "stack" nil (current-buffer) t "build" intero-package-version)
    (0
     (insert "\nInstalled successfully! Starting Intero in a moment ...")
     (run-with-timer 2
                     nil
                     '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

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

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