                   (cons callback-if-success (cons callback-if-exn command))
                   #'(lambda (closure answer)
                       (setq merlin-ready t)
+                      (if (>= (length answer) 4000)
+                          (message "merlin: Parsing long answer (%dk)" (/ (length answer) 10000)))
                       (let ((a (ignore-errors (json-read-from-string answer))))
                         (if a
                             (progn

  (set (make-local-variable 'merlin-enclosing-types) nil)
  (set (make-local-variable 'merlin-enclosing-offset) nil)
  (set (make-local-variable 'merlin-last-point-type) nil)
  (set (make-local-variable 'merlin--counter) 0)
  (add-to-list 'after-change-functions 'merlin-edit)
  (merlin-load-project-file)
  (with-current-buffer (get-buffer-create merlin-type-buffer-name)

    (define-key merlin-map (kbd "C-c C-f C-<down>") 'merlin-type-enclosing-go-down)
    (define-key merlin-map (kbd "C-c C-n") 'merlin-next-phrase)
    (define-key merlin-map (kbd "C-c C-p") 'merlin-prev-phrase)
;;    (define-key merlin-menu-map [customize]
;;      '("Customize merlin-mode" . merlin-customize))
    (define-key merlin-menu-map [separator]
