                           (plist-get state :checker)
                           (current-buffer)
                           string)))
-               (run-with-timer 0
-                               nil
-                               'intero-call-in-buffer
-                               (current-buffer)
-                               'intero-collect-compiler-messages
-                               msgs)
+               (intero-collect-compiler-messages msgs)
                (funcall (plist-get state :cont)
                         'finished
                         (cl-remove-if (lambda (msg)

(defun intero-apply-suggestions ()
  "Prompt and apply the suggestions."
  (interactive)
  (let ((to-apply
         (intero-multiswitch
          "Suggestions:"
          (cl-remove-if-not
           #'identity
           (mapcar

  (setq intero-lighter
        (if (null intero-suggestions)
            " Intero"
          (format " Intero:%d" (length intero-suggestions)))))

(defun intero-extensions ()
  "Get extensions for the current project's GHC."
