             'intero-linkify-process-output
             t t)
   (setq-local comint-prompt-read-only t)
-  (add-to-list (make-local-variable 'company-backends) 'company-intero)
+  (add-to-list (make-local-variable 'company-backends) 'intero-company)
   (company-mode))
 
 (defun intero-repl-mode-start (backend-buffer targets prompt-options)

    "UNPACK" "WARNING")
  "Pragmas that GHC supports.")

(defun company-intero (command &optional arg &rest ignored)
  "Company source for intero, with the standard COMMAND and ARG args.
Other arguments are IGNORED."
  (interactive (list 'interactive))
  (cl-case command
    (interactive (company-begin-backend 'company-intero))
    (prefix
     (unless (intero-gave-up 'backend)
       (let ((prefix-info (intero-completions-grab-prefix)))

                 (-partial 'intero-company-callback
                           (current-buffer)
                           prefix-info))))))))

(define-obsolete-function-alias 'company-intero 'intero-company)

(defun intero-company-callback (source-buffer prefix-info cont)
  "Generate completions for SOURCE-BUFFER based on PREFIX-INFO and call CONT on the results."
