              '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 -fobject-code
 :set prompt \"\\4 \"
 ")
                     (basic-save-buffer)


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