        (concat ":l " temp-file)
        (list :cont cont
              :file-buffer file-buffer
-             :hash hash
              :checker checker)
        (lambda (state string)
          (with-current-buffer (plist-get state :file-buffer)

             (let ((results (cl-remove-if (lambda (msg)
                                            (eq 'splice (flycheck-error-level msg)))
                                          msgs)))
               (setq intero-check-last-hash (plist-get state :hash)
                     intero-check-last-results results)
               (funcall (plist-get state :cont) 'finished results))
             (when compile-ok
               (intero-async-call 'backend

                      'interrupted)
    (let* ((file-buffer (current-buffer))
           (staging-file (intero-localize-path (intero-staging-file-name)))
           (temp-file (intero-localize-path (intero-temp-file-name))))
      ;; We queue up to :move the staging file to the target temp
      ;; file, which also updates its modified time.
      (intero-async-call
