 
 (merlin-insinuate)
 
-(provide 'merlin2)
-;;; merlin.el ends here+(provide 'merlin)
+;;; merlin.el ends here

  "Perform completion at point with merlin."
  (merlin-sync-to-point)
  (lexical-let* 
      ((bounds (bounds-of-thing-at-point 'ocamlatom))
       (start  (if bounds (car bounds) (point)))
       (end    (if bounds (1+ (cdr bounds)) (point)))
       (string (if bounds (buffer-substring-no-properties start end) "")))
    (setq merlin-completion-annotation-table
          (mapcar (lambda (a) (cons (car a) (concat ": " (cadr a))))

      (if (and (not quiet) bounds)
          (merlin-highlight bounds 'merlin-type-face)))))

(defun merlin-type-bounds (bounds &optional quiet on-failure)
  "Show the type of the expression inside BOUNDS in the current buffer.
If QUIET is non nil then an overlay is displayed and module
types are displayed in another buffer.  Otherwise only value type
