 
 (defvar-local intero-extensions nil
   "Extensions supported by the compiler.")
+
+(defvar-local intero-repl-filter-buffer ""
+  "A buffer for the REPL when making a blocking call to it.")
+
+(defvar-local intero-repl-filter-result nil
+  "Result for making a blocking call in the REPL.")
 
 (defvar intero-ghc-version nil
   "GHC version used by the project.")

  (let ((file (intero-buffer-file-name))
        (repl-buffer (intero-repl-buffer prompt-options t)))
    (with-current-buffer repl-buffer
      (comint-simple-send
       (get-buffer-process (current-buffer))
       (concat ":l " file)))
    (pop-to-buffer repl-buffer)))

(defun intero-repl (&optional prompt-options)
  "Start up the REPL for this stack project.

             'face 'font-lock-comment-face))
    (let ((script (with-current-buffer (find-file-noselect (make-temp-file "intero-script"))
                    (insert ":set prompt \"\"
:set -fbyte-code
:set prompt \"\\4 \"
")
                    (basic-save-buffer)
