   (mapcar #'read
           (cdr (split-string
                 (intero-blocking-call
+                 'backend
                  (format ":complete repl %S" prefix))
                 "\n"
                 t))))

                   string))
         (when (string-match "OK, modules loaded: \\(.*\\)\\.$" string)
           (let ((modules (match-string 1 string)))
             (intero-async-call (concat ":m + "
                                        (replace-in-string modules "," ""))
                                nil
                                (lambda (_st _))))))))))


  (replace-regexp-in-string
   "\n$" ""
   (intero-blocking-call
    'backend
    (format ":loc-at %S %d %d %d %d %S"
            (buffer-file-name)
            (save-excursion (goto-char beg)
