     (write-region (point-min) (point-max) (buffer-file-name))
     (clear-visited-file-modtime)
     (intero-async-call
+     'backend
      (concat ":l " (buffer-file-name))
      (list :cont cont
            :file-buffer file-buffer

(defun intero-sentinel (process change)
  "Handle a CHANGE to the PROCESS."
  (when (buffer-live-p (process-buffer process))
    (when (not (process-live-p process))
      (intero-show-process-problem process change))))

(defun intero-installed-p ()
  "Is intero installed in the stack environment?"

  (mapcar #'read
          (cdr (split-string
                (intero-blocking-call
                 'backend
                 (format ":complete repl %S" prefix))
                "\n"
                t))))
