             (list "--no-build"))
           (when no-load
             (list "--no-load"))
-          (let ((dir (make-temp-file "intero" t)))
+          (let ((dir (intero-make-temp-file "intero" t)))
             (list "--ghci-options"
                   (concat "-odir=" dir)
                   "--ghci-options"

        (or intero-temp-file-name
            (setq intero-temp-file-name
                  (intero-canonicalize-path
                   (let ((temporary-file-directory
                          (expand-file-name ".stack-work/intero/"
                                            (intero-project-root))))
                     (make-directory temporary-file-directory t)
                     (make-temp-file "intero" nil ".hs")))))
      (let ((contents (buffer-string)))
        (with-temp-file intero-temp-file-name
          (insert contents))))))

    (insert (propertize
             (format "Starting:\n  stack ghci %s\n" (combine-and-quote-strings arguments))
             'face 'font-lock-comment-face))
    (let ((script (with-current-buffer (find-file-noselect (intero-make-temp-file "intero-script"))
                    (insert ":set prompt \"\"
:set -fobject-code
:set prompt \"\\4 \"
