     (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 (make-temp-file "intero-script"))
+    (let ((script (with-current-buffer (find-file-noselect (intero-make-temp-file "intero-script"))
                     (insert ":set prompt \"\"
 :set -fobject-code
 :set prompt \"\\4 \"

            (list "--no-build"))
          (when no-load
            (list "--no-load"))
          (let ((dir (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
                   (intero-make-temp-file "intero" nil ".hs"))))
      (let ((contents (buffer-string)))
        (with-temp-file intero-temp-file-name
          (insert contents))))))
