                       (merlin--completion-format-entry entry)
                       (cdr (assoc 'kind entry))
                       (cdr (assoc 'info entry))))
-              (append entries nil)))))
+              entries))))
 
 (defun merlin--completion-lookup (string state)
   "Lookup the entry STRING inside the completion table."


(defun merlin-ac-prefix ()
  "Retrieve the prefix for completion with merlin."
  (car (merlin--completion-bounds)))

(defun merlin-ac-fetch-type ()
  "Prints the type of the selected candidate"

  merlin-ac-cache)

(defvar merlin-ac-source
  '((init . merlin-ac-source-init)
    (candidates . merlin-auto-complete-candidates)
    (action . merlin-ac-fetch-type)
    (prefix . merlin-ac-prefix)))

(when (featurep 'auto-complete)
  (eval '(ac-define-source "merlin" merlin-ac-source)))
