   "Return the data for completion of IDENT, i.e. a list of tuples of the form
   '(NAME TYPE KIND INFO)."
   (setq-local merlin--dwimed nil)
-  (let* ((ident- (merlin/completion-split-ident ident))
+  (let* ((merlin/verbosity-context t) ; increase verbosity level if necessary
+         (ident- (merlin/completion-split-ident ident))
          (suffix (cdr ident-))
          (prefix (car ident-))
          (data   (merlin/call "complete-prefix"

      result)))

(defun merlin--call-merlin (command &rest args)
  "TODO"
  ; Really start process
  (let ((binary      (merlin-command))
        (flags       (merlin-lookup 'flags merlin-buffer-configuration))

;; Locate

(defvar merlin-position-stack nil)

;; Verbosity

(defconst merlin/verbosity-context nil
  "If non-nil, a simple key used to determine verbosity")

(defvar-local merlin--verbosity-cache nil
  "Cache last command to determine verbosity level")

;; Misc

