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

    (setq intero-project-root
          (with-temp-buffer
            (cl-case (save-excursion
                       (call-process "stack" nil
                                     (current-buffer)
                                     nil
                                     "path"
                                     "--project-root"
                                     "--verbosity" "silent"))
              (0 (buffer-substring (line-beginning-position) (line-end-position)))
              (t (intero--warn "Couldn't get the Stack project root.


  (intero-async-call
   'backend
   (format ":complete-at %S %d %d %d %d %S"
           (intero-localize-path (intero-temp-file-name))
           (save-excursion (goto-char beg)
                           (line-number-at-pos))
           (save-excursion (goto-char beg)
